home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1994-07-08 | 47.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6f 6c 61 6e 64 40 |piled by| roland@|
|00000020| 63 68 75 72 63 68 79 2e | 67 6e 75 2e 61 69 2e 6d |churchy.|gnu.ai.m|
|00000030| 69 74 2e 65 64 75 20 6f | 6e 20 46 72 69 20 4a 75 |it.edu o|n Fri Ju|
|00000040| 6c 20 20 38 20 31 36 3a | 30 36 3a 32 36 20 31 39 |l 8 16:|06:26 19|
|00000050| 39 34 0a 3b 3b 3b 20 66 | 72 6f 6d 20 66 69 6c 65 |94.;;; f|rom file|
|00000060| 20 2f 67 64 2f 67 6e 75 | 2f 65 6d 61 63 73 2f 31 | /gd/gnu|/emacs/1|
|00000070| 39 2e 30 2f 6c 69 73 70 | 2f 74 70 75 2d 65 64 74 |9.0/lisp|/tpu-edt|
|00000080| 2e 65 6c 0a 3b 3b 3b 20 | 65 6d 61 63 73 20 76 65 |.el.;;; |emacs ve|
|00000090| 72 73 69 6f 6e 20 31 39 | 2e 32 35 2e 31 32 2e 0a |rsion 19|.25.12..|
|000000a0| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000b0| 73 69 6f 6e 20 46 53 46 | 20 32 2e 31 30 0a 3b 3b |sion FSF| 2.10.;;|
|000000c0| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|000000d0| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|000000e0| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|000000f0| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|00000100| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 20 31 38 2e |ist in E|macs 18.|
|00000110| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000120| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000130| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000140| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|00000150| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|00000160| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..| (st|
|00000170| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|00000180| 2d 76 65 72 73 69 6f 6e | 20 22 31 39 22 29 29 29 |-version| "19")))|
|00000190| 0a 20 20 20 20 28 65 72 | 72 6f 72 20 22 60 2f 67 |. (er|ror "`/g|
|000001a0| 64 2f 67 6e 75 2f 65 6d | 61 63 73 2f 31 39 2e 30 |d/gnu/em|acs/19.0|
|000001b0| 2f 6c 69 73 70 2f 74 70 | 75 2d 65 64 74 2e 65 6c |/lisp/tp|u-edt.el|
|000001c0| 27 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |' was co|mpiled f|
|000001d0| 6f 72 20 45 6d 61 63 73 | 20 31 39 22 29 29 0a 0a |or Emacs| 19"))..|
|000001e0| 28 64 65 66 63 6f 6e 73 | 74 20 74 70 75 2d 76 65 |(defcons|t tpu-ve|
|000001f0| 72 73 69 6f 6e 20 22 34 | 2e 30 22 20 22 5c 0a 54 |rsion "4|.0" "\.T|
|00000200| 50 55 2d 65 64 74 20 76 | 65 72 73 69 6f 6e 20 6e |PU-edt v|ersion n|
|00000210| 75 6d 62 65 72 2e 22 29 | 0a 28 64 65 66 63 6f 6e |umber.")|.(defcon|
|00000220| 73 74 20 74 70 75 2d 68 | 61 76 65 2d 69 73 70 65 |st tpu-h|ave-ispe|
|00000230| 6c 6c 20 74 20 22 5c 0a | 2a 49 66 20 6e 6f 6e 2d |ll t "\.|*If non-|
|00000240| 6e 69 6c 20 28 64 65 66 | 61 75 6c 74 29 2c 20 54 |nil (def|ault), T|
|00000250| 50 55 2d 65 64 74 20 75 | 73 65 73 20 69 73 70 65 |PU-edt u|ses ispe|
|00000260| 6c 6c 20 66 6f 72 20 73 | 70 65 6c 6c 20 63 68 65 |ll for s|pell che|
|00000270| 63 6b 69 6e 67 2e 22 29 | 0a 28 64 65 66 63 6f 6e |cking.")|.(defcon|
|00000280| 73 74 20 74 70 75 2d 6b | 69 6c 6c 2d 62 75 66 66 |st tpu-k|ill-buff|
|00000290| 65 72 73 2d 73 69 6c 65 | 6e 74 6c 79 20 6e 69 6c |ers-sile|ntly nil|
|000002a0| 20 22 5c 0a 2a 49 66 20 | 6e 6f 6e 2d 6e 69 6c 2c | "\.*If |non-nil,|
|000002b0| 20 54 50 55 2d 65 64 74 | 20 6b 69 6c 6c 73 20 6d | TPU-edt| kills m|
|000002c0| 6f 64 69 66 69 65 64 20 | 62 75 66 66 65 72 73 20 |odified |buffers |
|000002d0| 77 69 74 68 6f 75 74 20 | 61 73 6b 69 6e 67 2e 22 |without |asking."|
|000002e0| 29 0a 28 64 65 66 76 61 | 72 20 74 70 75 2d 70 65 |).(defva|r tpu-pe|
|000002f0| 72 63 65 6e 74 2d 73 63 | 72 6f 6c 6c 20 37 35 20 |rcent-sc|roll 75 |
|00000300| 22 5c 0a 2a 50 65 72 63 | 65 6e 74 61 67 65 20 6f |"\.*Perc|entage o|
|00000310| 66 20 74 68 65 20 73 63 | 72 65 65 6e 20 74 6f 20 |f the sc|reen to |
|00000320| 73 63 72 6f 6c 6c 20 66 | 6f 72 20 6e 65 78 74 2f |scroll f|or next/|
|00000330| 70 72 65 76 69 6f 75 73 | 20 73 63 72 65 65 6e 20 |previous| screen |
|00000340| 63 6f 6d 6d 61 6e 64 73 | 2e 22 29 0a 28 64 65 66 |commands|.").(def|
|00000350| 76 61 72 20 74 70 75 2d | 70 61 6e 2d 63 6f 6c 75 |var tpu-|pan-colu|
|00000360| 6d 6e 73 20 31 36 20 22 | 5c 0a 2a 4e 75 6d 62 65 |mns 16 "|\.*Numbe|
|00000370| 72 20 6f 66 20 63 6f 6c | 75 6d 6e 73 20 74 68 65 |r of col|umns the|
|00000380| 20 74 70 75 2d 70 61 6e | 20 66 75 6e 63 74 69 6f | tpu-pan| functio|
|00000390| 6e 73 20 73 63 72 6f 6c | 6c 20 6c 65 66 74 20 6f |ns scrol|l left o|
|000003a0| 72 20 72 69 67 68 74 2e | 22 29 0a 28 64 65 66 63 |r right.|").(defc|
|000003b0| 6f 6e 73 74 20 74 70 75 | 2d 65 6d 61 63 73 31 39 |onst tpu|-emacs19|
|000003c0| 2d 70 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |-p (byte|-code ".|
|000003d0| c1 99 3f 87 22 20 5b 65 | 6d 61 63 73 2d 76 65 72 |..?." [e|macs-ver|
|000003e0| 73 69 6f 6e 20 22 31 39 | 22 5d 20 32 29 20 22 5c |sion "19|"] 2) "\|
|000003f0| 0a 4e 6f 6e 2d 4e 49 4c | 20 69 66 20 77 65 20 61 |.Non-NIL| if we a|
|00000400| 72 65 20 72 75 6e 6e 69 | 6e 67 20 4c 75 63 69 64 |re runni|ng Lucid|
|00000410| 20 6f 72 20 47 4e 55 20 | 45 6d 61 63 73 20 76 65 | or GNU |Emacs ve|
|00000420| 72 73 69 6f 6e 20 31 39 | 2e 22 29 0a 28 64 65 66 |rsion 19|.").(def|
|00000430| 63 6f 6e 73 74 20 74 70 | 75 2d 67 6e 75 2d 65 6d |const tp|u-gnu-em|
|00000440| 61 63 73 31 38 2d 70 20 | 28 6e 75 6c 6c 20 74 70 |acs18-p |(null tp|
|00000450| 75 2d 65 6d 61 63 73 31 | 39 2d 70 29 20 22 5c 0a |u-emacs1|9-p) "\.|
|00000460| 4e 6f 6e 2d 4e 49 4c 20 | 69 66 20 77 65 20 61 72 |Non-NIL |if we ar|
|00000470| 65 20 72 75 6e 6e 69 6e | 67 20 47 4e 55 20 45 6d |e runnin|g GNU Em|
|00000480| 61 63 73 20 76 65 72 73 | 69 6f 6e 20 31 38 2e 22 |acs vers|ion 18."|
|00000490| 29 0a 28 64 65 66 63 6f | 6e 73 74 20 74 70 75 2d |).(defco|nst tpu-|
|000004a0| 6c 75 63 69 64 2d 65 6d | 61 63 73 31 39 2d 70 20 |lucid-em|acs19-p |
|000004b0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 85 08 00 |(byte-co|de "....|
|000004c0| c1 c2 0b 5c 22 87 22 20 | 5b 74 70 75 2d 65 6d 61 |...\"." |[tpu-ema|
|000004d0| 63 73 31 39 2d 70 20 73 | 74 72 69 6e 67 2d 6d 61 |cs19-p s|tring-ma|
|000004e0| 74 63 68 20 22 4c 75 63 | 69 64 22 20 65 6d 61 63 |tch "Luc|id" emac|
|000004f0| 73 2d 76 65 72 73 69 6f | 6e 5d 20 33 29 20 22 5c |s-versio|n] 3) "\|
|00000500| 0a 4e 6f 6e 2d 4e 49 4c | 20 69 66 20 77 65 20 61 |.Non-NIL| if we a|
|00000510| 72 65 20 72 75 6e 6e 69 | 6e 67 20 4c 75 63 69 64 |re runni|ng Lucid|
|00000520| 20 45 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 31 | Emacs v|ersion 1|
|00000530| 39 2e 22 29 0a 28 64 65 | 66 63 6f 6e 73 74 20 74 |9.").(de|fconst t|
|00000540| 70 75 2d 67 6e 75 2d 65 | 6d 61 63 73 31 39 2d 70 |pu-gnu-e|macs19-p|
|00000550| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 85 06 | (byte-c|ode "...|
|00000560| 00 09 3f 87 22 20 5b 74 | 70 75 2d 65 6d 61 63 73 |..?." [t|pu-emacs|
|00000570| 31 39 2d 70 20 74 70 75 | 2d 6c 75 63 69 64 2d 65 |19-p tpu|-lucid-e|
|00000580| 6d 61 63 73 31 39 2d 70 | 5d 20 31 29 20 22 5c 0a |macs19-p|] 1) "\.|
|00000590| 4e 6f 6e 2d 4e 49 4c 20 | 69 66 20 77 65 20 61 72 |Non-NIL |if we ar|
|000005a0| 65 20 72 75 6e 6e 69 6e | 67 20 47 4e 55 20 45 6d |e runnin|g GNU Em|
|000005b0| 61 63 73 20 76 65 72 73 | 69 6f 6e 20 31 39 2e 22 |acs vers|ion 19."|
|000005c0| 29 0a 28 64 65 66 76 61 | 72 20 43 53 49 2d 6d 61 |).(defva|r CSI-ma|
|000005d0| 70 20 28 6d 61 6b 65 2d | 73 70 61 72 73 65 2d 6b |p (make-|sparse-k|
|000005e0| 65 79 6d 61 70 29 20 22 | 5c 0a 4d 61 70 73 20 74 |eymap) "|\.Maps t|
|000005f0| 68 65 20 43 53 49 20 66 | 75 6e 63 74 69 6f 6e 20 |he CSI f|unction |
|00000600| 6b 65 79 73 20 6f 6e 20 | 74 68 65 20 56 54 31 30 |keys on |the VT10|
|00000610| 30 20 6b 65 79 62 6f 61 | 72 64 2e 0a 43 53 49 20 |0 keyboa|rd..CSI |
|00000620| 69 73 20 44 45 43 27 73 | 20 6e 61 6d 65 20 66 6f |is DEC's| name fo|
|00000630| 72 20 74 68 65 20 73 65 | 71 75 65 6e 63 65 20 3c |r the se|quence <|
|00000640| 45 53 43 3e 5b 2e 22 29 | 0a 28 64 65 66 76 61 72 |ESC>[.")|.(defvar|
|00000650| 20 53 53 33 2d 6d 61 70 | 20 28 6d 61 6b 65 2d 73 | SS3-map| (make-s|
|00000660| 70 61 72 73 65 2d 6b 65 | 79 6d 61 70 29 20 22 5c |parse-ke|ymap) "\|
|00000670| 0a 4d 61 70 73 20 74 68 | 65 20 53 53 33 20 66 75 |.Maps th|e SS3 fu|
|00000680| 6e 63 74 69 6f 6e 20 6b | 65 79 73 20 6f 6e 20 74 |nction k|eys on t|
|00000690| 68 65 20 56 54 31 30 30 | 20 6b 65 79 62 6f 61 72 |he VT100| keyboar|
|000006a0| 64 2e 0a 53 53 33 20 69 | 73 20 44 45 43 27 73 20 |d..SS3 i|s DEC's |
|000006b0| 6e 61 6d 65 20 66 6f 72 | 20 74 68 65 20 73 65 71 |name for| the seq|
|000006c0| 75 65 6e 63 65 20 3c 45 | 53 43 3e 4f 2e 22 29 0a |uence <E|SC>O.").|
|000006d0| 28 64 65 66 76 61 72 20 | 47 4f 4c 44 2d 6d 61 70 |(defvar |GOLD-map|
|000006e0| 20 28 6d 61 6b 65 2d 6b | 65 79 6d 61 70 29 20 22 | (make-k|eymap) "|
|000006f0| 5c 0a 4d 61 70 73 20 74 | 68 65 20 66 75 6e 63 74 |\.Maps t|he funct|
|00000700| 69 6f 6e 20 6b 65 79 73 | 20 6f 6e 20 74 68 65 20 |ion keys| on the |
|00000710| 56 54 31 30 30 20 6b 65 | 79 62 6f 61 72 64 20 70 |VT100 ke|yboard p|
|00000720| 72 65 63 65 65 64 65 64 | 20 62 79 20 50 46 31 2e |receeded| by PF1.|
|00000730| 0a 47 4f 4c 44 20 69 73 | 20 74 68 65 20 41 53 43 |.GOLD is| the ASC|
|00000740| 49 49 20 37 2d 62 69 74 | 20 65 73 63 61 70 65 20 |II 7-bit| escape |
|00000750| 73 65 71 75 65 6e 63 65 | 20 3c 45 53 43 3e 4f 50 |sequence| <ESC>OP|
|00000760| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 47 4f 4c 44 |.").(def|var GOLD|
|00000770| 2d 43 53 49 2d 6d 61 70 | 20 28 6d 61 6b 65 2d 73 |-CSI-map| (make-s|
|00000780| 70 61 72 73 65 2d 6b 65 | 79 6d 61 70 29 20 22 5c |parse-ke|ymap) "\|
|00000790| 0a 4d 61 70 73 20 74 68 | 65 20 66 75 6e 63 74 69 |.Maps th|e functi|
|000007a0| 6f 6e 20 6b 65 79 73 20 | 6f 6e 20 74 68 65 20 56 |on keys |on the V|
|000007b0| 54 31 30 30 20 6b 65 79 | 62 6f 61 72 64 20 70 72 |T100 key|board pr|
|000007c0| 65 63 65 65 64 65 64 20 | 62 79 20 47 4f 4c 44 2d |eceeded |by GOLD-|
|000007d0| 43 53 49 2e 22 29 0a 28 | 64 65 66 76 61 72 20 47 |CSI.").(|defvar G|
|000007e0| 4f 4c 44 2d 53 53 33 2d | 6d 61 70 20 28 6d 61 6b |OLD-SS3-|map (mak|
|000007f0| 65 2d 73 70 61 72 73 65 | 2d 6b 65 79 6d 61 70 29 |e-sparse|-keymap)|
|00000800| 20 22 5c 0a 4d 61 70 73 | 20 74 68 65 20 66 75 6e | "\.Maps| the fun|
|00000810| 63 74 69 6f 6e 20 6b 65 | 79 73 20 6f 6e 20 74 68 |ction ke|ys on th|
|00000820| 65 20 56 54 31 30 30 20 | 6b 65 79 62 6f 61 72 64 |e VT100 |keyboard|
|00000830| 20 70 72 65 63 65 65 64 | 65 64 20 62 79 20 47 4f | preceed|ed by GO|
|00000840| 4c 44 2d 53 53 33 2e 22 | 29 0a 28 64 65 66 76 61 |LD-SS3."|).(defva|
|00000850| 72 20 74 70 75 2d 67 6c | 6f 62 61 6c 2d 6d 61 70 |r tpu-gl|obal-map|
|00000860| 20 6e 69 6c 20 22 5c 0a | 54 50 55 2d 65 64 74 20 | nil "\.|TPU-edt |
|00000870| 67 6c 6f 62 61 6c 20 6b | 65 79 6d 61 70 2e 22 29 |global k|eymap.")|
|00000880| 0a 28 64 65 66 76 61 72 | 20 74 70 75 2d 6f 72 69 |.(defvar| tpu-ori|
|00000890| 67 69 6e 61 6c 2d 67 6c | 6f 62 61 6c 2d 6d 61 70 |ginal-gl|obal-map|
|000008a0| 20 28 63 6f 70 79 2d 6b | 65 79 6d 61 70 20 67 6c | (copy-k|eymap gl|
|000008b0| 6f 62 61 6c 2d 6d 61 70 | 29 20 22 5c 0a 4f 72 69 |obal-map|) "\.Ori|
|000008c0| 67 69 6e 61 6c 20 67 6c | 6f 62 61 6c 20 6b 65 79 |ginal gl|obal key|
|000008d0| 6d 61 70 2e 22 29 0a 28 | 62 79 74 65 2d 63 6f 64 |map.").(|byte-cod|
|000008e0| 65 20 22 08 83 13 00 c1 | c2 21 84 0d 00 c3 20 12 |e ".....|.!.... .|
|000008f0| c4 c2 c5 c6 23 88 c1 87 | 22 20 5b 74 70 75 2d 6c |....#...|" [tpu-l|
|00000900| 75 63 69 64 2d 65 6d 61 | 63 73 31 39 2d 70 20 62 |ucid-ema|cs19-p b|
|00000910| 6f 75 6e 64 70 20 6d 69 | 6e 69 62 75 66 66 65 72 |oundp mi|nibuffer|
|00000920| 2d 6c 6f 63 61 6c 2d 6e | 73 2d 6d 61 70 20 6d 61 |-local-n|s-map ma|
|00000930| 6b 65 2d 73 70 61 72 73 | 65 2d 6b 65 79 6d 61 70 |ke-spars|e-keymap|
|00000940| 20 70 75 74 20 76 61 72 | 69 61 62 6c 65 2d 64 6f | put var|iable-do|
|00000950| 63 75 6d 65 6e 74 61 74 | 69 6f 6e 20 22 48 61 63 |cumentat|ion "Hac|
|00000960| 6b 20 74 6f 20 67 69 76 | 65 20 4c 75 63 69 64 20 |k to giv|e Lucid |
|00000970| 65 6d 61 63 73 20 74 68 | 65 20 73 61 6d 65 20 6d |emacs th|e same m|
|00000980| 61 70 73 20 61 73 20 47 | 4e 55 20 65 6d 61 63 73 |aps as G|NU emacs|
|00000990| 2e 22 5d 20 34 29 0a 28 | 64 65 66 76 61 72 20 74 |."] 4).(|defvar t|
|000009a0| 70 75 2d 65 64 74 2d 6d | 6f 64 65 20 6e 69 6c 20 |pu-edt-m|ode nil |
|000009b0| 22 5c 0a 49 66 20 6e 6f | 6e 2d 6e 69 6c 2c 20 54 |"\.If no|n-nil, T|
|000009c0| 50 55 2d 65 64 74 20 6d | 6f 64 65 20 69 73 20 61 |PU-edt m|ode is a|
|000009d0| 63 74 69 76 65 2e 22 29 | 0a 28 64 65 66 76 61 72 |ctive.")|.(defvar|
|000009e0| 20 74 70 75 2d 6c 61 73 | 74 2d 72 65 70 6c 61 63 | tpu-las|t-replac|
|000009f0| 65 64 2d 74 65 78 74 20 | 22 22 20 22 5c 0a 4c 61 |ed-text |"" "\.La|
|00000a00| 73 74 20 74 65 78 74 20 | 64 65 6c 65 74 65 64 20 |st text |deleted |
|00000a10| 62 79 20 61 20 54 50 55 | 2d 65 64 74 20 72 65 70 |by a TPU|-edt rep|
|00000a20| 6c 61 63 65 20 63 6f 6d | 6d 61 6e 64 2e 22 29 0a |lace com|mand.").|
|00000a30| 28 64 65 66 76 61 72 20 | 74 70 75 2d 6c 61 73 74 |(defvar |tpu-last|
|00000a40| 2d 64 65 6c 65 74 65 64 | 2d 72 65 67 69 6f 6e 20 |-deleted|-region |
|00000a50| 22 22 20 22 5c 0a 4c 61 | 73 74 20 74 65 78 74 20 |"" "\.La|st text |
|00000a60| 64 65 6c 65 74 65 64 20 | 62 79 20 61 20 54 50 55 |deleted |by a TPU|
|00000a70| 2d 65 64 74 20 72 65 6d | 6f 76 65 20 63 6f 6d 6d |-edt rem|ove comm|
|00000a80| 61 6e 64 2e 22 29 0a 28 | 64 65 66 76 61 72 20 74 |and.").(|defvar t|
|00000a90| 70 75 2d 6c 61 73 74 2d | 64 65 6c 65 74 65 64 2d |pu-last-|deleted-|
|00000aa0| 6c 69 6e 65 73 20 22 22 | 20 22 5c 0a 4c 61 73 74 |lines ""| "\.Last|
|00000ab0| 20 74 65 78 74 20 64 65 | 6c 65 74 65 64 20 62 79 | text de|leted by|
|00000ac0| 20 61 20 54 50 55 2d 65 | 64 74 20 6c 69 6e 65 2d | a TPU-e|dt line-|
|00000ad0| 64 65 6c 65 74 65 20 63 | 6f 6d 6d 61 6e 64 2e 22 |delete c|ommand."|
|00000ae0| 29 0a 28 64 65 66 76 61 | 72 20 74 70 75 2d 6c 61 |).(defva|r tpu-la|
|00000af0| 73 74 2d 64 65 6c 65 74 | 65 64 2d 77 6f 72 64 73 |st-delet|ed-words|
|00000b00| 20 22 22 20 22 5c 0a 4c | 61 73 74 20 74 65 78 74 | "" "\.L|ast text|
|00000b10| 20 64 65 6c 65 74 65 64 | 20 62 79 20 61 20 54 50 | deleted| by a TP|
|00000b20| 55 2d 65 64 74 20 77 6f | 72 64 2d 64 65 6c 65 74 |U-edt wo|rd-delet|
|00000b30| 65 20 63 6f 6d 6d 61 6e | 64 2e 22 29 0a 28 64 65 |e comman|d.").(de|
|00000b40| 66 76 61 72 20 74 70 75 | 2d 6c 61 73 74 2d 64 65 |fvar tpu|-last-de|
|00000b50| 6c 65 74 65 64 2d 63 68 | 61 72 20 22 22 20 22 5c |leted-ch|ar "" "\|
|00000b60| 0a 4c 61 73 74 20 63 68 | 61 72 61 63 74 65 72 20 |.Last ch|aracter |
|00000b70| 64 65 6c 65 74 65 64 20 | 62 79 20 61 20 54 50 55 |deleted |by a TPU|
|00000b80| 2d 65 64 74 20 63 68 61 | 72 61 63 74 65 72 2d 64 |-edt cha|racter-d|
|00000b90| 65 6c 65 74 65 20 63 6f | 6d 6d 61 6e 64 2e 22 29 |elete co|mmand.")|
|00000ba0| 0a 28 64 65 66 76 61 72 | 20 74 70 75 2d 73 65 61 |.(defvar| tpu-sea|
|00000bb0| 72 63 68 69 6e 67 2d 66 | 6f 72 77 61 72 64 20 74 |rching-f|orward t|
|00000bc0| 20 22 5c 0a 49 66 20 6e | 6f 6e 2d 6e 69 6c 2c 20 | "\.If n|on-nil, |
|00000bd0| 54 50 55 2d 65 64 74 20 | 69 73 20 73 65 61 72 63 |TPU-edt |is searc|
|00000be0| 68 69 6e 67 20 69 6e 20 | 74 68 65 20 66 6f 72 77 |hing in |the forw|
|00000bf0| 61 72 64 20 64 69 72 65 | 63 74 69 6f 6e 2e 22 29 |ard dire|ction.")|
|00000c00| 0a 28 64 65 66 76 61 72 | 20 74 70 75 2d 73 65 61 |.(defvar| tpu-sea|
|00000c10| 72 63 68 2d 6c 61 73 74 | 2d 73 74 72 69 6e 67 20 |rch-last|-string |
|00000c20| 22 22 20 22 5c 0a 4c 61 | 73 74 20 74 65 78 74 20 |"" "\.La|st text |
|00000c30| 73 65 61 72 63 68 65 64 | 20 66 6f 72 20 62 79 20 |searched| for by |
|00000c40| 74 68 65 20 54 50 55 2d | 65 64 74 20 73 65 61 72 |the TPU-|edt sear|
|00000c50| 63 68 20 63 6f 6d 6d 61 | 6e 64 73 2e 22 29 0a 28 |ch comma|nds.").(|
|00000c60| 64 65 66 76 61 72 20 74 | 70 75 2d 72 65 67 65 78 |defvar t|pu-regex|
|00000c70| 70 2d 70 20 6e 69 6c 20 | 22 5c 0a 49 66 20 6e 6f |p-p nil |"\.If no|
|00000c80| 6e 2d 6e 69 6c 2c 20 54 | 50 55 2d 65 64 74 20 75 |n-nil, T|PU-edt u|
|00000c90| 73 65 73 20 72 65 67 65 | 78 70 20 73 65 61 72 63 |ses rege|xp searc|
|00000ca0| 68 20 61 6e 64 20 72 65 | 70 6c 61 63 65 20 72 6f |h and re|place ro|
|00000cb0| 75 74 69 6e 65 73 2e 22 | 29 0a 28 64 65 66 76 61 |utines."|).(defva|
|00000cc0| 72 20 74 70 75 2d 72 65 | 63 74 61 6e 67 75 6c 61 |r tpu-re|ctangula|
|00000cd0| 72 2d 70 20 6e 69 6c 20 | 22 5c 0a 49 66 20 6e 6f |r-p nil |"\.If no|
|00000ce0| 6e 2d 6e 69 6c 2c 20 54 | 50 55 2d 65 64 74 20 72 |n-nil, T|PU-edt r|
|00000cf0| 65 6d 6f 76 65 73 20 61 | 6e 64 20 69 6e 73 65 72 |emoves a|nd inser|
|00000d00| 74 73 20 72 65 63 74 61 | 6e 67 6c 65 73 2e 22 29 |ts recta|ngles.")|
|00000d10| 0a 28 64 65 66 76 61 72 | 20 74 70 75 2d 61 64 76 |.(defvar| tpu-adv|
|00000d20| 61 6e 63 65 20 74 20 22 | 5c 0a 54 72 75 65 20 77 |ance t "|\.True w|
|00000d30| 68 65 6e 20 54 50 55 2d | 65 64 74 20 69 73 20 6f |hen TPU-|edt is o|
|00000d40| 70 65 72 61 74 69 6e 67 | 20 69 6e 20 74 68 65 20 |perating| in the |
|00000d50| 66 6f 72 77 61 72 64 20 | 64 69 72 65 63 74 69 6f |forward |directio|
|00000d60| 6e 2e 22 29 0a 28 64 65 | 66 76 61 72 20 74 70 75 |n.").(de|fvar tpu|
|00000d70| 2d 72 65 76 65 72 73 65 | 20 6e 69 6c 20 22 5c 0a |-reverse| nil "\.|
|00000d80| 54 72 75 65 20 77 68 65 | 6e 20 54 50 55 2d 65 64 |True whe|n TPU-ed|
|00000d90| 74 20 69 73 20 6f 70 65 | 72 61 74 69 6e 67 20 69 |t is ope|rating i|
|00000da0| 6e 20 74 68 65 20 62 61 | 63 6b 77 61 72 64 20 64 |n the ba|ckward d|
|00000db0| 69 72 65 63 74 69 6f 6e | 2e 22 29 0a 28 64 65 66 |irection|.").(def|
|00000dc0| 76 61 72 20 74 70 75 2d | 63 6f 6e 74 72 6f 6c 2d |var tpu-|control-|
|00000dd0| 6b 65 79 73 20 74 20 22 | 5c 0a 49 66 20 6e 6f 6e |keys t "|\.If non|
|00000de0| 2d 6e 69 6c 2c 20 63 6f | 6e 74 72 6f 6c 20 6b 65 |-nil, co|ntrol ke|
|00000df0| 79 73 20 61 72 65 20 73 | 65 74 20 74 6f 20 70 65 |ys are s|et to pe|
|00000e00| 72 66 6f 72 6d 20 54 50 | 55 20 66 75 6e 63 74 69 |rform TP|U functi|
|00000e10| 6f 6e 73 2e 22 29 0a 28 | 64 65 66 76 61 72 20 74 |ons.").(|defvar t|
|00000e20| 70 75 2d 78 6b 65 79 73 | 2d 66 69 6c 65 20 6e 69 |pu-xkeys|-file ni|
|00000e30| 6c 20 22 5c 0a 46 69 6c | 65 20 63 6f 6e 74 61 69 |l "\.Fil|e contai|
|00000e40| 6e 69 6e 67 20 54 50 55 | 2d 65 64 74 20 58 20 6b |ning TPU|-edt X k|
|00000e50| 65 79 20 6d 61 70 2e 22 | 29 0a 28 64 65 66 76 61 |ey map."|).(defva|
|00000e60| 72 20 74 70 75 2d 72 65 | 63 74 61 6e 67 6c 65 2d |r tpu-re|ctangle-|
|00000e70| 73 74 72 69 6e 67 20 6e | 69 6c 20 22 5c 0a 4d 6f |string n|il "\.Mo|
|00000e80| 64 65 20 6c 69 6e 65 20 | 73 74 72 69 6e 67 20 74 |de line |string t|
|00000e90| 6f 20 69 64 65 6e 74 69 | 66 79 20 72 65 63 74 61 |o identi|fy recta|
|00000ea0| 6e 67 75 6c 61 72 20 6d | 6f 64 65 2e 22 29 0a 28 |ngular m|ode.").(|
|00000eb0| 64 65 66 76 61 72 20 74 | 70 75 2d 64 69 72 65 63 |defvar t|pu-direc|
|00000ec0| 74 69 6f 6e 2d 73 74 72 | 69 6e 67 20 6e 69 6c 20 |tion-str|ing nil |
|00000ed0| 22 5c 0a 4d 6f 64 65 20 | 6c 69 6e 65 20 73 74 72 |"\.Mode |line str|
|00000ee0| 69 6e 67 20 74 6f 20 69 | 64 65 6e 74 69 66 79 20 |ing to i|dentify |
|00000ef0| 63 75 72 72 65 6e 74 20 | 64 69 72 65 63 74 69 6f |current |directio|
|00000f00| 6e 2e 22 29 0a 28 64 65 | 66 76 61 72 20 74 70 75 |n.").(de|fvar tpu|
|00000f10| 2d 61 64 64 2d 61 74 2d | 62 6f 6c 2d 68 69 73 74 |-add-at-|bol-hist|
|00000f20| 20 6e 69 6c 20 22 5c 0a | 48 69 73 74 6f 72 79 20 | nil "\.|History |
|00000f30| 76 61 72 69 61 62 6c 65 | 20 66 6f 72 20 74 70 75 |variable| for tpu|
|00000f40| 2d 65 64 74 2d 61 64 64 | 2d 61 74 2d 62 6f 6c 20 |-edt-add|-at-bol |
|00000f50| 66 75 6e 63 74 69 6f 6e | 2e 22 29 0a 28 64 65 66 |function|.").(def|
|00000f60| 76 61 72 20 74 70 75 2d | 61 64 64 2d 61 74 2d 65 |var tpu-|add-at-e|
|00000f70| 6f 6c 2d 68 69 73 74 20 | 6e 69 6c 20 22 5c 0a 48 |ol-hist |nil "\.H|
|00000f80| 69 73 74 6f 72 79 20 76 | 61 72 69 61 62 6c 65 20 |istory v|ariable |
|00000f90| 66 6f 72 20 74 70 75 2d | 65 64 74 2d 61 64 64 2d |for tpu-|edt-add-|
|00000fa0| 61 74 2d 65 6f 6c 20 66 | 75 6e 63 74 69 6f 6e 2e |at-eol f|unction.|
|00000fb0| 22 29 0a 28 64 65 66 76 | 61 72 20 74 70 75 2d 72 |").(defv|ar tpu-r|
|00000fc0| 65 67 65 78 70 2d 70 72 | 6f 6d 70 74 2d 68 69 73 |egexp-pr|ompt-his|
|00000fd0| 74 20 6e 69 6c 20 22 5c | 0a 48 69 73 74 6f 72 79 |t nil "\|.History|
|00000fe0| 20 76 61 72 69 61 62 6c | 65 20 66 6f 72 20 73 65 | variabl|e for se|
|00000ff0| 61 72 63 68 20 61 6e 64 | 20 72 65 70 6c 61 63 65 |arch and| replace|
|00001000| 20 66 75 6e 63 74 69 6f | 6e 73 2e 22 29 0a 28 64 | functio|ns.").(d|
|00001010| 65 66 76 61 72 20 74 70 | 75 2d 6e 65 77 6c 69 6e |efvar tp|u-newlin|
|00001020| 65 2d 61 6e 64 2d 69 6e | 64 65 6e 74 2d 70 20 6e |e-and-in|dent-p n|
|00001030| 69 6c 20 22 5c 0a 49 66 | 20 6e 6f 6e 2d 6e 69 6c |il "\.If| non-nil|
|00001040| 2c 20 52 65 74 75 72 6e | 20 70 72 6f 64 75 63 65 |, Return| produce|
|00001050| 73 20 61 20 6e 65 77 6c | 69 6e 65 20 61 6e 64 20 |s a newl|ine and |
|00001060| 69 6e 64 65 6e 74 73 2e | 22 29 0a 28 6d 61 6b 65 |indents.|").(make|
|00001070| 2d 76 61 72 69 61 62 6c | 65 2d 62 75 66 66 65 72 |-variabl|e-buffer|
|00001080| 2d 6c 6f 63 61 6c 20 28 | 71 75 6f 74 65 20 74 70 |-local (|quote tp|
|00001090| 75 2d 6e 65 77 6c 69 6e | 65 2d 61 6e 64 2d 69 6e |u-newlin|e-and-in|
|000010a0| 64 65 6e 74 2d 70 29 29 | 0a 28 64 65 66 76 61 72 |dent-p))|.(defvar|
|000010b0| 20 74 70 75 2d 6e 65 77 | 6c 69 6e 65 2d 61 6e 64 | tpu-new|line-and|
|000010c0| 2d 69 6e 64 65 6e 74 2d | 73 74 72 69 6e 67 20 6e |-indent-|string n|
|000010d0| 69 6c 20 22 5c 0a 4d 6f | 64 65 20 6c 69 6e 65 20 |il "\.Mo|de line |
|000010e0| 73 74 72 69 6e 67 20 74 | 6f 20 69 64 65 6e 74 69 |string t|o identi|
|000010f0| 66 79 20 41 75 74 6f 49 | 6e 64 65 6e 74 20 6d 6f |fy AutoI|ndent mo|
|00001100| 64 65 2e 22 29 0a 28 6d | 61 6b 65 2d 76 61 72 69 |de.").(m|ake-vari|
|00001110| 61 62 6c 65 2d 62 75 66 | 66 65 72 2d 6c 6f 63 61 |able-buf|fer-loca|
|00001120| 6c 20 28 71 75 6f 74 65 | 20 74 70 75 2d 6e 65 77 |l (quote| tpu-new|
|00001130| 6c 69 6e 65 2d 61 6e 64 | 2d 69 6e 64 65 6e 74 2d |line-and|-indent-|
|00001140| 73 74 72 69 6e 67 29 29 | 0a 28 64 65 66 76 61 72 |string))|.(defvar|
|00001150| 20 74 70 75 2d 73 61 76 | 65 64 2d 64 65 6c 65 74 | tpu-sav|ed-delet|
|00001160| 65 2d 66 75 6e 63 20 6e | 69 6c 20 22 5c 0a 53 61 |e-func n|il "\.Sa|
|00001170| 76 65 64 20 76 61 6c 75 | 65 20 6f 66 20 74 68 65 |ved valu|e of the|
|00001180| 20 64 65 6c 65 74 65 20 | 6b 65 79 2e 22 29 0a 28 | delete |key.").(|
|00001190| 6d 61 6b 65 2d 76 61 72 | 69 61 62 6c 65 2d 62 75 |make-var|iable-bu|
|000011a0| 66 66 65 72 2d 6c 6f 63 | 61 6c 20 28 71 75 6f 74 |ffer-loc|al (quot|
|000011b0| 65 20 74 70 75 2d 73 61 | 76 65 64 2d 64 65 6c 65 |e tpu-sa|ved-dele|
|000011c0| 74 65 2d 66 75 6e 63 29 | 29 0a 28 64 65 66 76 61 |te-func)|).(defva|
|000011d0| 72 20 74 70 75 2d 62 75 | 66 66 65 72 2d 6c 6f 63 |r tpu-bu|ffer-loc|
|000011e0| 61 6c 2d 6d 61 70 20 6e | 69 6c 20 22 5c 0a 54 50 |al-map n|il "\.TP|
|000011f0| 55 2d 65 64 74 20 62 75 | 66 66 65 72 20 6c 6f 63 |U-edt bu|ffer loc|
|00001200| 61 6c 20 6b 65 79 20 6d | 61 70 2e 22 29 0a 28 62 |al key m|ap.").(b|
|00001210| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 21 88 c2 c3 |yte-code| "..!...|
|00001220| 21 84 5c 66 00 5c 66 13 | c2 c5 21 84 15 00 0e 06 |!.\f.\f.|..!.....|
|00001230| 15 c2 c7 21 84 1e 00 c8 | 16 07 c0 c7 21 87 22 20 |...!....|....!." |
|00001240| 5b 6d 61 6b 65 2d 76 61 | 72 69 61 62 6c 65 2d 62 |[make-va|riable-b|
|00001250| 75 66 66 65 72 2d 6c 6f | 63 61 6c 20 74 70 75 2d |uffer-lo|cal tpu-|
|00001260| 62 75 66 66 65 72 2d 6c | 6f 63 61 6c 2d 6d 61 70 |buffer-l|ocal-map|
|00001270| 20 62 6f 75 6e 64 70 20 | 74 70 75 2d 6f 72 69 67 | boundp |tpu-orig|
|00001280| 69 6e 61 6c 2d 6d 6f 64 | 65 2d 6c 69 6e 65 20 6d |inal-mod|e-line m|
|00001290| 6f 64 65 2d 6c 69 6e 65 | 2d 66 6f 72 6d 61 74 20 |ode-line|-format |
|000012a0| 74 70 75 2d 6f 72 69 67 | 69 6e 61 6c 2d 6d 6d 2d |tpu-orig|inal-mm-|
|000012b0| 61 6c 69 73 74 20 6d 69 | 6e 6f 72 2d 6d 6f 64 65 |alist mi|nor-mode|
|000012c0| 2d 61 6c 69 73 74 20 74 | 70 75 2d 6d 61 72 6b 2d |-alist t|pu-mark-|
|000012d0| 66 6c 61 67 20 22 20 22 | 5d 20 32 29 0a 28 64 65 |flag " "|] 2).(de|
|000012e0| 66 61 6c 69 61 73 20 27 | 74 70 75 2d 73 65 74 2d |falias '|tpu-set-|
|000012f0| 6d 6f 64 65 2d 6c 69 6e | 65 20 23 5b 28 66 6f 72 |mode-lin|e #[(for|
|00001300| 2d 74 70 75 29 20 22 08 | 84 5c 6e 00 09 12 0b 89 |-tpu) ".|.\n.....|
|00001310| 14 87 c5 c2 c6 c7 21 c8 | c9 c6 ca 21 cb c6 ca 21 |......!.|...!...!|
|00001320| cc c6 cd 21 ce cf c4 c6 | d0 21 c6 d1 21 c6 d2 21 |...!....|.!..!..!|
|00001330| c6 d3 21 c6 d4 21 af 10 | 5c 22 88 d5 5c 66 9e 84 |..!..!..|\"..\f..|
|00001340| 3c 00 d6 5c 66 42 14 d7 | 5c 66 9e 84 46 00 d8 5c |<..\fB..|\f..F..\|
|00001350| 66 42 14 d9 5c 66 9e 86 | 51 00 da 5c 66 42 89 14 |fB..\f..|Q..\fB..|
|00001360| 87 22 20 5b 66 6f 72 2d | 74 70 75 20 74 70 75 2d |." [for-|tpu tpu-|
|00001370| 6f 72 69 67 69 6e 61 6c | 2d 6d 6f 64 65 2d 6c 69 |original|-mode-li|
|00001380| 6e 65 20 6d 6f 64 65 2d | 6c 69 6e 65 2d 66 6f 72 |ne mode-|line-for|
|00001390| 6d 61 74 20 74 70 75 2d | 6f 72 69 67 69 6e 61 6c |mat tpu-|original|
|000013a0| 2d 6d 6d 2d 61 6c 69 73 | 74 20 6d 69 6e 6f 72 2d |-mm-alis|t minor-|
|000013b0| 6d 6f 64 65 2d 61 6c 69 | 73 74 20 73 65 74 2d 64 |mode-ali|st set-d|
|000013c0| 65 66 61 75 6c 74 20 70 | 75 72 65 63 6f 70 79 20 |efault p|urecopy |
|000013d0| 22 22 20 6d 6f 64 65 2d | 6c 69 6e 65 2d 6d 6f 64 |"" mode-|line-mod|
|000013e0| 69 66 69 65 64 20 6d 6f | 64 65 2d 6c 69 6e 65 2d |ified mo|de-line-|
|000013f0| 62 75 66 66 65 72 2d 69 | 64 65 6e 74 69 66 69 63 |buffer-i|dentific|
|00001400| 61 74 69 6f 6e 20 22 20 | 20 22 20 67 6c 6f 62 61 |ation " | " globa|
|00001410| 6c 2d 6d 6f 64 65 2d 73 | 74 72 69 6e 67 20 74 70 |l-mode-s|tring tp|
|00001420| 75 2d 6d 61 72 6b 2d 66 | 6c 61 67 20 22 20 25 5b |u-mark-f|lag " %[|
|00001430| 28 22 20 6d 6f 64 65 2d | 6e 61 6d 65 20 6d 6f 64 |(" mode-|name mod|
|00001440| 65 2d 6c 69 6e 65 2d 70 | 72 6f 63 65 73 73 20 22 |e-line-p|rocess "|
|00001450| 25 6e 22 20 22 29 25 5d | 2d 2d 22 20 28 6c 69 6e |%n" ")%]|--" (lin|
|00001460| 65 2d 6e 75 6d 62 65 72 | 2d 6d 6f 64 65 20 22 4c |e-number|-mode "L|
|00001470| 25 6c 2d 2d 22 29 20 28 | 2d 33 20 2e 20 22 25 70 |%l--") (|-3 . "%p|
|00001480| 22 29 20 22 2d 25 2d 22 | 20 74 70 75 2d 6e 65 77 |") "-%-"| tpu-new|
|00001490| 6c 69 6e 65 2d 61 6e 64 | 2d 69 6e 64 65 6e 74 2d |line-and|-indent-|
|000014a0| 70 20 28 74 70 75 2d 6e | 65 77 6c 69 6e 65 2d 61 |p (tpu-n|ewline-a|
|000014b0| 6e 64 2d 69 6e 64 65 6e | 74 2d 70 20 74 70 75 2d |nd-inden|t-p tpu-|
|000014c0| 6e 65 77 6c 69 6e 65 2d | 61 6e 64 2d 69 6e 64 65 |newline-|and-inde|
|000014d0| 6e 74 2d 73 74 72 69 6e | 67 29 20 74 70 75 2d 72 |nt-strin|g) tpu-r|
|000014e0| 65 63 74 61 6e 67 75 6c | 61 72 2d 70 20 28 74 70 |ectangul|ar-p (tp|
|000014f0| 75 2d 72 65 63 74 61 6e | 67 75 6c 61 72 2d 70 20 |u-rectan|gular-p |
|00001500| 74 70 75 2d 72 65 63 74 | 61 6e 67 6c 65 2d 73 74 |tpu-rect|angle-st|
|00001510| 72 69 6e 67 29 20 74 70 | 75 2d 64 69 72 65 63 74 |ring) tp|u-direct|
|00001520| 69 6f 6e 2d 73 74 72 69 | 6e 67 20 28 74 70 75 2d |ion-stri|ng (tpu-|
|00001530| 64 69 72 65 63 74 69 6f | 6e 2d 73 74 72 69 6e 67 |directio|n-string|
|00001540| 20 74 70 75 2d 64 69 72 | 65 63 74 69 6f 6e 2d 73 | tpu-dir|ection-s|
|00001550| 74 72 69 6e 67 29 5d 20 | 31 39 20 22 5c 0a 53 65 |tring)] |19 "\.Se|
|00001560| 74 20 74 68 65 20 6d 6f | 64 65 20 66 6f 72 20 54 |t the mo|de for T|
|00001570| 50 55 2d 65 64 74 2c 20 | 6f 72 20 72 65 73 65 74 |PU-edt, |or reset|
|00001580| 20 69 74 20 74 6f 20 64 | 65 66 61 75 6c 74 20 45 | it to d|efault E|
|00001590| 6d 61 63 73 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |macs."])|.(defali|
|000015a0| 61 73 20 27 74 70 75 2d | 75 70 64 61 74 65 2d 6d |as 'tpu-|update-m|
|000015b0| 6f 64 65 2d 6c 69 6e 65 | 20 23 5b 6e 69 6c 20 22 |ode-line| #[nil "|
|000015c0| c0 20 83 09 00 c1 82 5c | 6e 00 c2 13 5c 66 83 12 |. .....\|n...\f..|
|000015d0| 00 c5 20 87 c6 c7 20 21 | 88 c8 c9 21 87 22 20 5b |.. ... !|...!." [|
|000015e0| 74 70 75 2d 6d 61 72 6b | 20 22 4d 22 20 22 20 22 |tpu-mark| "M" " "|
|000015f0| 20 74 70 75 2d 6d 61 72 | 6b 2d 66 6c 61 67 20 74 | tpu-mar|k-flag t|
|00001600| 70 75 2d 65 6d 61 63 73 | 31 39 2d 70 20 66 6f 72 |pu-emacs|19-p for|
|00001610| 63 65 2d 6d 6f 64 65 2d | 6c 69 6e 65 2d 75 70 64 |ce-mode-|line-upd|
|00001620| 61 74 65 20 73 65 74 2d | 62 75 66 66 65 72 2d 6d |ate set-|buffer-m|
|00001630| 6f 64 69 66 69 65 64 2d | 70 20 62 75 66 66 65 72 |odified-|p buffer|
|00001640| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 20 73 69 74 2d |-modifie|d-p sit-|
|00001650| 66 6f 72 20 30 5d 20 32 | 20 22 5c 0a 4d 61 6b 65 |for 0] 2| "\.Make|
|00001660| 20 73 75 72 65 20 6d 6f | 64 65 2d 6c 69 6e 65 20 | sure mo|de-line |
|00001670| 69 6e 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 62 |in the c|urrent b|
|00001680| 75 66 66 65 72 20 72 65 | 66 6c 65 63 74 73 20 61 |uffer re|flects a|
|00001690| 6c 6c 20 63 68 61 6e 67 | 65 73 2e 22 5d 29 0a 28 |ll chang|es."]).(|
|000016a0| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 83 11 00 c1 |byte-cod|e ".....|
|000016b0| c2 c3 5c 22 88 c1 c4 c3 | 5c 22 88 82 1f 00 0d 83 |..\"....|\"......|
|000016c0| 1f 00 c1 c6 c3 5c 22 88 | c1 c7 c3 5c 22 88 c8 c9 |.....\".|...\"...|
|000016d0| 21 84 29 00 ca 20 16 09 | c8 cb 21 84 33 00 ca 20 |!.).. ..|..!.3.. |
|000016e0| 16 0b c1 87 22 20 5b 74 | 70 75 2d 67 6e 75 2d 65 |...." [t|pu-gnu-e|
|000016f0| 6d 61 63 73 31 39 2d 70 | 20 61 64 64 2d 68 6f 6f |macs19-p| add-hoo|
|00001700| 6b 20 61 63 74 69 76 61 | 74 65 2d 6d 61 72 6b 2d |k activa|te-mark-|
|00001710| 68 6f 6f 6b 20 74 70 75 | 2d 75 70 64 61 74 65 2d |hook tpu|-update-|
|00001720| 6d 6f 64 65 2d 6c 69 6e | 65 20 64 65 61 63 74 69 |mode-lin|e deacti|
|00001730| 76 61 74 65 2d 6d 61 72 | 6b 2d 68 6f 6f 6b 20 74 |vate-mar|k-hook t|
|00001740| 70 75 2d 6c 75 63 69 64 | 2d 65 6d 61 63 73 31 39 |pu-lucid|-emacs19|
|00001750| 2d 70 20 7a 6d 61 63 73 | 2d 64 65 61 63 74 69 76 |-p zmacs|-deactiv|
|00001760| 61 74 65 2d 72 65 67 69 | 6f 6e 2d 68 6f 6f 6b 20 |ate-regi|on-hook |
|00001770| 7a 6d 61 63 73 2d 61 63 | 74 69 76 61 74 65 2d 72 |zmacs-ac|tivate-r|
|00001780| 65 67 69 6f 6e 2d 68 6f | 6f 6b 20 62 6f 75 6e 64 |egion-ho|ok bound|
|00001790| 70 20 74 70 75 2d 6d 61 | 74 63 68 2d 62 65 67 69 |p tpu-ma|tch-begi|
|000017a0| 6e 6e 69 6e 67 2d 6d 61 | 72 6b 20 6d 61 6b 65 2d |nning-ma|rk make-|
|000017b0| 6d 61 72 6b 65 72 20 74 | 70 75 2d 6d 61 74 63 68 |marker t|pu-match|
|000017c0| 2d 65 6e 64 2d 6d 61 72 | 6b 5d 20 33 29 0a 28 64 |-end-mar|k] 3).(d|
|000017d0| 65 66 61 6c 69 61 73 20 | 27 74 70 75 2d 73 65 74 |efalias |'tpu-set|
|000017e0| 2d 6d 61 74 63 68 20 23 | 5b 6e 69 6c 20 22 c0 c1 |-match #|[nil "..|
|000017f0| 94 54 21 12 c0 c1 95 21 | 89 13 87 22 20 5b 63 6f |.T!....!|..." [co|
|00001800| 70 79 2d 6d 61 72 6b 65 | 72 20 30 20 74 70 75 2d |py-marke|r 0 tpu-|
|00001810| 6d 61 74 63 68 2d 62 65 | 67 69 6e 6e 69 6e 67 2d |match-be|ginning-|
|00001820| 6d 61 72 6b 20 74 70 75 | 2d 6d 61 74 63 68 2d 65 |mark tpu|-match-e|
|00001830| 6e 64 2d 6d 61 72 6b 5d | 20 32 20 22 5c 0a 53 65 |nd-mark]| 2 "\.Se|
|00001840| 74 20 6d 61 72 6b 65 72 | 73 20 61 74 20 6d 61 74 |t marker|s at mat|
|00001850| 63 68 20 62 65 67 69 6e | 6e 69 6e 67 20 61 6e 64 |ch begin|ning and|
|00001860| 20 65 6e 64 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 | end."])|.(defali|
|00001870| 61 73 20 27 74 70 75 2d | 75 6e 73 65 74 2d 6d 61 |as 'tpu-|unset-ma|
|00001880| 74 63 68 20 23 5b 6e 69 | 6c 20 22 08 c1 89 93 88 |tch #[ni|l ".....|
|00001890| 5c 6e c1 89 93 87 22 20 | 5b 74 70 75 2d 6d 61 74 |\n...." |[tpu-mat|
|000018a0| 63 68 2d 62 65 67 69 6e | 6e 69 6e 67 2d 6d 61 72 |ch-begin|ning-mar|
|000018b0| 6b 20 6e 69 6c 20 74 70 | 75 2d 6d 61 74 63 68 2d |k nil tp|u-match-|
|000018c0| 65 6e 64 2d 6d 61 72 6b | 5d 20 33 20 22 5c 0a 55 |end-mark|] 3 "\.U|
|000018d0| 6e 73 65 74 20 6d 61 74 | 63 68 20 62 65 67 69 6e |nset mat|ch begin|
|000018e0| 6e 69 6e 67 20 61 6e 64 | 20 65 6e 64 20 6d 61 72 |ning and| end mar|
|000018f0| 6b 65 72 73 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |kers."])|.(defali|
|00001900| 61 73 20 27 74 70 75 2d | 6d 61 74 63 68 2d 62 65 |as 'tpu-|match-be|
|00001910| 67 69 6e 6e 69 6e 67 20 | 23 5b 6e 69 6c 20 22 c0 |ginning |#[nil ".|
|00001920| 09 21 53 87 22 20 5b 6d | 61 72 6b 65 72 2d 70 6f |.!S." [m|arker-po|
|00001930| 73 69 74 69 6f 6e 20 74 | 70 75 2d 6d 61 74 63 68 |sition t|pu-match|
|00001940| 2d 62 65 67 69 6e 6e 69 | 6e 67 2d 6d 61 72 6b 5d |-beginni|ng-mark]|
|00001950| 20 32 20 22 5c 0a 52 65 | 74 75 72 6e 73 20 74 68 | 2 "\.Re|turns th|
|00001960| 65 20 6c 6f 63 61 74 69 | 6f 6e 20 6f 66 20 74 68 |e locati|on of th|
|00001970| 65 20 6c 61 73 74 20 6d | 61 74 63 68 20 62 65 67 |e last m|atch beg|
|00001980| 69 6e 6e 69 6e 67 2e 22 | 5d 29 0a 28 64 65 66 61 |inning."|]).(defa|
|00001990| 6c 69 61 73 20 27 74 70 | 75 2d 6d 61 74 63 68 2d |lias 'tp|u-match-|
|000019a0| 65 6e 64 20 23 5b 6e 69 | 6c 20 22 c0 09 21 87 22 |end #[ni|l "..!."|
|000019b0| 20 5b 6d 61 72 6b 65 72 | 2d 70 6f 73 69 74 69 6f | [marker|-positio|
|000019c0| 6e 20 74 70 75 2d 6d 61 | 74 63 68 2d 65 6e 64 2d |n tpu-ma|tch-end-|
|000019d0| 6d 61 72 6b 5d 20 32 20 | 22 5c 0a 52 65 74 75 72 |mark] 2 |"\.Retur|
|000019e0| 6e 73 20 74 68 65 20 6c | 6f 63 61 74 69 6f 6e 20 |ns the l|ocation |
|000019f0| 6f 66 20 74 68 65 20 6c | 61 73 74 20 6d 61 74 63 |of the l|ast matc|
|00001a00| 68 20 65 6e 64 2e 22 5d | 29 0a 28 64 65 66 61 6c |h end."]|).(defal|
|00001a10| 69 61 73 20 27 74 70 75 | 2d 63 68 65 63 6b 2d 6d |ias 'tpu|-check-m|
|00001a20| 61 74 63 68 20 23 5b 6e | 69 6c 20 22 c0 09 21 70 |atch #[n|il "..!p|
|00001a30| 9a 83 2e 00 60 c2 09 21 | 53 59 83 2e 00 60 c2 0b |....`..!|SY...`..|
|00001a40| 21 57 84 2c 00 c2 09 21 | 53 c2 0b 21 55 83 2e 00 |!W.,...!|S..!U...|
|00001a50| c2 0b 21 60 55 83 2e 00 | c4 87 c5 20 88 c6 87 22 |..!`U...|... ..."|
|00001a60| 20 5b 6d 61 72 6b 65 72 | 2d 62 75 66 66 65 72 20 | [marker|-buffer |
|00001a70| 74 70 75 2d 6d 61 74 63 | 68 2d 62 65 67 69 6e 6e |tpu-matc|h-beginn|
|00001a80| 69 6e 67 2d 6d 61 72 6b | 20 6d 61 72 6b 65 72 2d |ing-mark| marker-|
|00001a90| 70 6f 73 69 74 69 6f 6e | 20 74 70 75 2d 6d 61 74 |position| tpu-mat|
|00001aa0| 63 68 2d 65 6e 64 2d 6d | 61 72 6b 20 74 20 74 70 |ch-end-m|ark t tp|
|00001ab0| 75 2d 75 6e 73 65 74 2d | 6d 61 74 63 68 20 6e 69 |u-unset-|match ni|
|00001ac0| 6c 5d 20 33 20 22 5c 0a | 52 65 74 75 72 6e 73 20 |l] 3 "\.|Returns |
|00001ad0| 74 20 69 66 20 70 6f 69 | 6e 74 20 69 73 20 62 65 |t if poi|nt is be|
|00001ae0| 74 77 65 65 6e 20 74 70 | 75 2d 6d 61 74 63 68 20 |tween tp|u-match |
|00001af0| 6d 61 72 6b 65 72 73 2e | 0a 4f 74 68 65 72 77 69 |markers.|.Otherwi|
|00001b00| 73 65 20 73 65 74 73 20 | 74 68 65 20 74 70 75 2d |se sets |the tpu-|
|00001b10| 6d 61 74 63 68 20 6d 61 | 72 6b 65 72 73 20 74 6f |match ma|rkers to|
|00001b20| 20 6e 69 6c 20 61 6e 64 | 20 72 65 74 75 72 6e 73 | nil and| returns|
|00001b30| 20 6e 69 6c 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 | nil."])|.(defali|
|00001b40| 61 73 20 27 74 70 75 2d | 73 68 6f 77 2d 6d 61 74 |as 'tpu-|show-mat|
|00001b50| 63 68 2d 6d 61 72 6b 65 | 72 73 20 23 5b 6e 69 6c |ch-marke|rs #[nil|
|00001b60| 20 22 c0 09 21 85 1f 00 | c2 09 21 1b c4 c5 0b 85 | "..!...|..!.....|
|00001b70| 12 00 0b 53 c2 0e 06 21 | c7 0e 06 21 60 70 26 06 |...S...!|...!`p&.|
|00001b80| 29 87 22 20 5b 6d 61 72 | 6b 65 72 70 20 74 70 75 |)." [mar|kerp tpu|
|00001b90| 2d 6d 61 74 63 68 2d 62 | 65 67 69 6e 6e 69 6e 67 |-match-b|eginning|
|00001ba0| 2d 6d 61 72 6b 20 6d 61 | 72 6b 65 72 2d 70 6f 73 |-mark ma|rker-pos|
|00001bb0| 69 74 69 6f 6e 20 62 65 | 67 20 6d 65 73 73 61 67 |ition be|g messag|
|00001bc0| 65 20 22 28 25 73 2c 20 | 25 73 29 20 69 6e 20 25 |e "(%s, |%s) in %|
|00001bd0| 73 20 2d 2d 20 63 75 72 | 72 65 6e 74 20 25 73 20 |s -- cur|rent %s |
|00001be0| 69 6e 20 25 73 22 20 74 | 70 75 2d 6d 61 74 63 68 |in %s" t|pu-match|
|00001bf0| 2d 65 6e 64 2d 6d 61 72 | 6b 20 6d 61 72 6b 65 72 |-end-mar|k marker|
|00001c00| 2d 62 75 66 66 65 72 5d | 20 37 20 22 5c 0a 53 68 |-buffer]| 7 "\.Sh|
|00001c10| 6f 77 20 74 68 65 20 76 | 61 6c 75 65 73 20 6f 66 |ow the v|alues of|
|00001c20| 20 74 68 65 20 6d 61 74 | 63 68 20 6d 61 72 6b 65 | the mat|ch marke|
|00001c30| 72 73 2e 22 20 6e 69 6c | 5d 29 0a 28 62 79 74 65 |rs." nil|]).(byte|
|00001c40| 2d 63 6f 64 65 20 22 c0 | c1 c2 5c 22 88 c0 c3 c4 |-code ".|..\"....|
|00001c50| 5c 22 87 22 20 5b 64 65 | 66 61 6c 69 61 73 20 74 |\"." [de|falias t|
|00001c60| 70 75 2d 63 61 61 72 20 | 23 5b 28 74 68 69 6e 67 |pu-caar |#[(thing|
|00001c70| 79 29 20 22 08 40 40 87 | 22 20 5b 74 68 69 6e 67 |y) ".@@.|" [thing|
|00001c80| 79 5d 20 31 5d 20 74 70 | 75 2d 63 61 64 72 20 23 |y] 1] tp|u-cadr #|
|00001c90| 5b 28 74 68 69 6e 67 79 | 29 20 22 08 41 40 87 22 |[(thingy|) ".A@."|
|00001ca0| 20 5b 74 68 69 6e 67 79 | 5d 20 31 5d 5d 20 33 29 | [thingy|] 1]] 3)|
|00001cb0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 70 75 2d |.(defali|as 'tpu-|
|00001cc0| 6d 61 72 6b 20 23 5b 6e | 69 6c 20 22 08 83 09 00 |mark #[n|il "....|
|00001cd0| c1 5c 6e 3f 21 87 0b 83 | 16 00 5c 66 85 18 00 c1 |.\n?!...|..\f....|
|00001ce0| 0d 3f 21 87 c1 20 87 22 | 20 5b 74 70 75 2d 6c 75 |.?!.. ."| [tpu-lu|
|00001cf0| 63 69 64 2d 65 6d 61 63 | 73 31 39 2d 70 20 6d 61 |cid-emac|s19-p ma|
|00001d00| 72 6b 20 7a 6d 61 63 73 | 2d 72 65 67 69 6f 6e 73 |rk zmacs|-regions|
|00001d10| 20 74 70 75 2d 67 6e 75 | 2d 65 6d 61 63 73 31 39 | tpu-gnu|-emacs19|
|00001d20| 2d 70 20 6d 61 72 6b 2d | 61 63 74 69 76 65 20 74 |-p mark-|active t|
|00001d30| 72 61 6e 73 69 65 6e 74 | 2d 6d 61 72 6b 2d 6d 6f |ransient|-mark-mo|
|00001d40| 64 65 5d 20 32 20 22 5c | 0a 54 50 55 2d 65 64 74 |de] 2 "\|.TPU-edt|
|00001d50| 20 76 65 72 73 69 6f 6e | 20 6f 66 20 74 68 65 20 | version| of the |
|00001d60| 6d 61 72 6b 20 66 75 6e | 63 74 69 6f 6e 2e 0a 52 |mark fun|ction..R|
|00001d70| 65 74 75 72 6e 20 74 68 | 65 20 61 70 70 72 6f 70 |eturn th|e approp|
|00001d80| 72 69 61 74 65 20 76 61 | 6c 75 65 20 6f 66 20 74 |riate va|lue of t|
|00001d90| 68 65 20 6d 61 72 6b 20 | 66 6f 72 20 74 68 65 20 |he mark |for the |
|00001da0| 63 75 72 72 65 6e 74 0a | 76 65 72 73 69 6f 6e 20 |current.|version |
|00001db0| 6f 66 20 65 6d 61 63 73 | 2e 22 5d 29 0a 28 64 65 |of emacs|."]).(de|
|00001dc0| 66 61 6c 69 61 73 20 27 | 74 70 75 2d 73 65 74 2d |falias '|tpu-set-|
|00001dd0| 6d 61 72 6b 20 23 5b 28 | 70 6f 73 29 20 22 c0 09 |mark #[(|pos) "..|
|00001de0| 21 88 5c 6e 85 0e 00 09 | 85 0e 00 c3 20 87 22 20 |!.\n....|.... ." |
|00001df0| 5b 73 65 74 2d 6d 61 72 | 6b 20 70 6f 73 20 74 70 |[set-mar|k pos tp|
|00001e00| 75 2d 6c 75 63 69 64 2d | 65 6d 61 63 73 31 39 2d |u-lucid-|emacs19-|
|00001e10| 70 20 7a 6d 61 63 73 2d | 61 63 74 69 76 61 74 65 |p zmacs-|activate|
|00001e20| 2d 72 65 67 69 6f 6e 5d | 20 32 20 22 5c 0a 54 50 |-region]| 2 "\.TP|
|00001e30| 55 2d 65 64 74 20 76 65 | 72 69 6f 6e 20 6f 66 20 |U-edt ve|rion of |
|00001e40| 74 68 65 20 73 65 74 2d | 6d 61 72 6b 20 66 75 6e |the set-|mark fun|
|00001e50| 63 74 69 6f 6e 2e 0a 53 | 65 74 73 20 74 68 65 20 |ction..S|ets the |
|00001e60| 6d 61 72 6b 20 61 74 20 | 50 4f 53 20 61 6e 64 20 |mark at |POS and |
|00001e70| 61 63 74 69 76 61 74 65 | 73 20 74 68 65 20 72 65 |activate|s the re|
|00001e80| 67 69 6f 6e 20 61 63 6f | 72 64 69 6e 67 20 74 6f |gion aco|rding to|
|00001e90| 20 74 68 65 0a 63 75 72 | 72 65 6e 74 20 76 65 72 | the.cur|rent ver|
|00001ea0| 73 69 6f 6e 20 6f 66 20 | 65 6d 61 63 73 2e 22 5d |sion of |emacs."]|
|00001eb0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 70 75 |).(defal|ias 'tpu|
|00001ec0| 2d 73 74 72 69 6e 67 2d | 70 72 6f 6d 70 74 20 23 |-string-|prompt #|
|00001ed0| 5b 28 70 72 6f 6d 70 74 | 20 68 69 73 74 6f 72 79 |[(prompt| history|
|00001ee0| 2d 73 79 6d 62 6f 6c 29 | 20 22 08 83 5c 66 00 c1 |-symbol)| "..\f..|
|00001ef0| 5c 6e c3 89 89 5c 66 25 | 87 c5 5c 6e 21 87 22 20 |\n...\f%|..\n!." |
|00001f00| 5b 74 70 75 2d 65 6d 61 | 63 73 31 39 2d 70 20 72 |[tpu-ema|cs19-p r|
|00001f10| 65 61 64 2d 66 72 6f 6d | 2d 6d 69 6e 69 62 75 66 |ead-from|-minibuf|
|00001f20| 66 65 72 20 70 72 6f 6d | 70 74 20 6e 69 6c 20 68 |fer prom|pt nil h|
|00001f30| 69 73 74 6f 72 79 2d 73 | 79 6d 62 6f 6c 20 72 65 |istory-s|ymbol re|
|00001f40| 61 64 2d 73 74 72 69 6e | 67 5d 20 36 20 22 5c 0a |ad-strin|g] 6 "\.|
|00001f50| 52 65 61 64 20 61 20 73 | 74 72 69 6e 67 20 77 69 |Read a s|tring wi|
|00001f60| 74 68 20 50 52 4f 4d 50 | 54 2e 22 5d 29 0a 28 64 |th PROMP|T."]).(d|
|00001f70| 65 66 76 61 72 20 74 70 | 75 2d 6c 61 73 74 2d 61 |efvar tp|u-last-a|
|00001f80| 6e 73 77 65 72 20 6e 69 | 6c 20 22 5c 0a 4d 6f 73 |nswer ni|l "\.Mos|
|00001f90| 74 20 72 65 63 65 6e 74 | 20 72 65 73 70 6f 6e 73 |t recent| respons|
|00001fa0| 65 20 74 6f 20 74 70 75 | 2d 79 2d 6f 72 2d 6e 2d |e to tpu|-y-or-n-|
|00001fb0| 70 2e 22 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |p.").(de|falias '|
|00001fc0| 74 70 75 2d 79 2d 6f 72 | 2d 6e 2d 70 20 23 5b 28 |tpu-y-or|-n-p #[(|
|00001fd0| 70 72 6f 6d 70 74 20 26 | 6f 70 74 69 6f 6e 61 6c |prompt &|optional|
|00001fe0| 20 6e 6f 74 2d 79 65 73 | 29 20 22 c0 c1 c2 0b 5c | not-yes|) "....\|
|00001ff0| 66 83 5c 66 00 c5 82 0d | 00 c6 23 21 88 c7 1e 08 |f.\f....|..#!....|
|00002000| 0e 08 83 7c 00 c9 16 08 | ca 20 89 1e 0b cc 55 84 |...|....|. ....U.|
|00002010| 33 00 0e 0b cd 55 84 33 | 00 0e 0b ce 55 83 39 00 |3....U.3|....U.9.|
|00002020| c7 16 0f 82 78 00 0e 0b | d0 55 84 4e 00 0e 0b d1 |....x...|.U.N....|
|00002030| 55 84 4e 00 0e 0b d2 55 | 83 54 00 c9 16 0f 82 78 |U.N....U|.T.....x|
|00002040| 00 0e 0b d3 55 83 62 00 | 5c 66 3f 16 0f 82 78 00 |....U.b.|\f?...x.|
|00002050| c7 16 08 d4 20 88 c0 c1 | d5 0b 5c 66 83 74 00 c5 |.... ...|..\f.t..|
|00002060| 82 75 00 c6 23 21 88 29 | 82 13 00 29 0e 0f 87 22 |.u..#!.)|...)..."|
|00002070| 20 5b 6d 65 73 73 61 67 | 65 20 66 6f 72 6d 61 74 | [messag|e format|
|00002080| 20 22 25 73 5b 25 73 5d | 22 20 70 72 6f 6d 70 74 | "%s[%s]|" prompt|
|00002090| 20 6e 6f 74 2d 79 65 73 | 20 22 6e 22 20 22 79 22 | not-yes| "n" "y"|
|000020a0| 20 74 20 64 6f 69 74 20 | 6e 69 6c 20 72 65 61 64 | t doit |nil read|
|000020b0| 2d 63 68 61 72 20 61 6e | 73 20 31 32 31 20 38 39 |-char an|s 121 89|
|000020c0| 20 33 32 20 74 70 75 2d | 6c 61 73 74 2d 61 6e 73 | 32 tpu-|last-ans|
|000020d0| 77 65 72 20 31 31 30 20 | 37 38 20 31 32 37 20 31 |wer 110 |78 127 1|
|000020e0| 33 20 62 65 65 70 20 22 | 50 6c 65 61 73 65 20 61 |3 beep "|Please a|
|000020f0| 6e 73 77 65 72 20 79 20 | 6f 72 20 6e 2e 20 20 25 |nswer y |or n. %|
|00002100| 73 5b 25 73 5d 22 5d 20 | 36 20 22 5c 0a 50 72 6f |s[%s]"] |6 "\.Pro|
|00002110| 6d 70 74 20 66 6f 72 20 | 61 20 79 20 6f 72 20 6e |mpt for |a y or n|
|00002120| 20 61 6e 73 77 65 72 20 | 77 69 74 68 20 70 6f 73 | answer |with pos|
|00002130| 69 74 69 76 65 20 64 65 | 66 61 75 6c 74 2e 0a 4f |itive de|fault..O|
|00002140| 70 74 69 6f 6e 61 6c 20 | 73 65 63 6f 6e 64 20 61 |ptional |second a|
|00002150| 72 67 75 6d 65 6e 74 20 | 4e 4f 54 2d 59 45 53 20 |rgument |NOT-YES |
|00002160| 63 68 61 6e 67 65 73 20 | 64 65 66 61 75 6c 74 20 |changes |default |
|00002170| 74 6f 20 6e 65 67 61 74 | 69 76 65 2e 0a 4c 69 6b |to negat|ive..Lik|
|00002180| 65 20 65 6d 61 63 73 20 | 79 2d 6f 72 2d 6e 2d 70 |e emacs |y-or-n-p|
|00002190| 2c 20 61 6c 73 6f 20 61 | 63 63 65 70 74 73 20 73 |, also a|ccepts s|
|000021a0| 70 61 63 65 20 61 73 20 | 79 20 61 6e 64 20 44 45 |pace as |y and DE|
|000021b0| 4c 20 61 73 20 6e 2e 22 | 5d 29 0a 28 64 65 66 61 |L as n."|]).(defa|
|000021c0| 6c 69 61 73 20 27 74 70 | 75 2d 6c 6f 63 61 6c 2d |lias 'tp|u-local-|
|000021d0| 73 65 74 2d 6b 65 79 20 | 23 5b 28 6b 65 79 20 66 |set-key |#[(key f|
|000021e0| 75 6e 63 29 20 22 c0 09 | 21 84 19 00 c2 20 83 12 |unc) "..|!.... ..|
|000021f0| 00 c3 c2 20 21 82 14 00 | c4 20 11 c5 09 21 88 c6 |... !...|. ...!..|
|00002200| 0e 07 0e 08 5c 22 87 22 | 20 5b 6b 65 79 6d 61 70 |....\"."| [keymap|
|00002210| 70 20 74 70 75 2d 62 75 | 66 66 65 72 2d 6c 6f 63 |p tpu-bu|ffer-loc|
|00002220| 61 6c 2d 6d 61 70 20 63 | 75 72 72 65 6e 74 2d 6c |al-map c|urrent-l|
|00002230| 6f 63 61 6c 2d 6d 61 70 | 20 63 6f 70 79 2d 6b 65 |ocal-map| copy-ke|
|00002240| 79 6d 61 70 20 6d 61 6b | 65 2d 73 70 61 72 73 65 |ymap mak|e-sparse|
|00002250| 2d 6b 65 79 6d 61 70 20 | 75 73 65 2d 6c 6f 63 61 |-keymap |use-loca|
|00002260| 6c 2d 6d 61 70 20 6c 6f | 63 61 6c 2d 73 65 74 2d |l-map lo|cal-set-|
|00002270| 6b 65 79 20 6b 65 79 20 | 66 75 6e 63 5d 20 33 20 |key key |func] 3 |
|00002280| 22 5c 0a 52 65 70 6c 61 | 63 65 20 61 20 6b 65 79 |"\.Repla|ce a key|
|00002290| 20 69 6e 20 74 68 65 20 | 54 50 55 2d 65 64 74 20 | in the |TPU-edt |
|000022a0| 6c 6f 63 61 6c 20 6b 65 | 79 20 6d 61 70 2e 0a 43 |local ke|y map..C|
|000022b0| 72 65 61 74 65 20 74 68 | 65 20 6b 65 79 20 6d 61 |reate th|e key ma|
|000022c0| 70 20 69 66 20 6e 65 63 | 65 73 73 61 72 79 2e 22 |p if nec|essary."|
|000022d0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 70 |]).(defa|lias 'tp|
|000022e0| 75 2d 63 75 72 72 65 6e | 74 2d 6c 69 6e 65 20 23 |u-curren|t-line #|
|000022f0| 5b 6e 69 6c 20 22 c0 c1 | 20 60 5c 22 69 c2 55 83 |[nil "..| `\"i.U.|
|00002300| 0f 00 c3 82 10 00 c2 c4 | 5c 5c 5c 5c 87 22 20 5b |........|\\\\." [|
|00002310| 63 6f 75 6e 74 2d 6c 69 | 6e 65 73 20 77 69 6e 64 |count-li|nes wind|
|00002320| 6f 77 2d 73 74 61 72 74 | 20 30 20 31 20 2d 31 5d |ow-start| 0 1 -1]|
|00002330| 20 33 20 22 5c 0a 52 65 | 74 75 72 6e 20 74 68 65 | 3 "\.Re|turn the|
|00002340| 20 76 65 72 74 69 63 61 | 6c 20 70 6f 73 69 74 69 | vertica|l positi|
|00002350| 6f 6e 20 6f 66 20 70 6f | 69 6e 74 20 69 6e 20 74 |on of po|int in t|
|00002360| 68 65 20 73 65 6c 65 63 | 74 65 64 20 77 69 6e 64 |he selec|ted wind|
|00002370| 6f 77 2e 0a 54 6f 70 20 | 6c 69 6e 65 20 69 73 20 |ow..Top |line is |
|00002380| 30 2e 20 20 43 6f 75 6e | 74 73 20 65 61 63 68 20 |0. Coun|ts each |
|00002390| 74 65 78 74 20 6c 69 6e | 65 20 6f 6e 6c 79 20 6f |text lin|e only o|
|000023a0| 6e 63 65 2c 20 65 76 65 | 6e 20 69 66 20 69 74 20 |nce, eve|n if it |
|000023b0| 77 72 61 70 73 2e 22 5d | 29 0a 28 64 65 66 76 61 |wraps."]|).(defva|
|000023c0| 72 20 74 70 75 2d 62 72 | 65 61 64 63 72 75 6d 62 |r tpu-br|eadcrumb|
|000023d0| 2d 70 6c 69 73 74 20 6e | 69 6c 20 22 5c 0a 54 68 |-plist n|il "\.Th|
|000023e0| 65 20 73 65 74 20 6f 66 | 20 75 73 65 72 2d 64 65 |e set of| user-de|
|000023f0| 66 69 6e 65 64 20 6d 61 | 72 6b 65 72 73 20 28 62 |fined ma|rkers (b|
|00002400| 72 65 61 64 63 72 75 6d | 62 73 29 2c 20 61 73 20 |readcrum|bs), as |
|00002410| 61 20 70 6c 69 73 74 2e | 22 29 0a 28 64 65 66 61 |a plist.|").(defa|
|00002420| 6c 69 61 73 20 27 74 70 | 75 2d 64 72 6f 70 2d 62 |lias 'tp|u-drop-b|
|00002430| 72 65 61 64 63 72 75 6d | 62 20 23 5b 28 6e 75 6d |readcrum|b #[(num|
|00002440| 29 20 22 c0 09 5c 6e 70 | 60 44 23 88 c3 c4 5c 6e |) "..\np|`D#...\n|
|00002450| 5c 22 87 22 20 5b 70 75 | 74 20 74 70 75 2d 62 72 |\"." [pu|t tpu-br|
|00002460| 65 61 64 63 72 75 6d 62 | 2d 70 6c 69 73 74 20 6e |eadcrumb|-plist n|
|00002470| 75 6d 20 6d 65 73 73 61 | 67 65 20 22 4d 61 72 6b |um messa|ge "Mark|
|00002480| 20 25 64 20 73 65 74 2e | 22 5d 20 35 20 22 5c 0a | %d set.|"] 5 "\.|
|00002490| 44 72 6f 70 73 20 61 20 | 62 72 65 61 64 63 72 75 |Drops a |breadcru|
|000024a0| 6d 62 20 74 68 61 74 20 | 63 61 6e 20 62 65 20 72 |mb that |can be r|
|000024b0| 65 74 75 72 6e 65 64 20 | 74 6f 20 6c 61 74 65 72 |eturned |to later|
|000024c0| 20 77 69 74 68 20 67 6f | 74 6f 2d 62 72 65 61 64 | with go|to-bread|
|000024d0| 63 72 75 6d 62 2e 22 20 | 22 70 22 5d 29 0a 28 64 |crumb." |"p"]).(d|
|000024e0| 65 66 61 6c 69 61 73 20 | 27 74 70 75 2d 67 6f 74 |efalias |'tpu-got|
|000024f0| 6f 2d 62 72 65 61 64 63 | 72 75 6d 62 20 23 5b 28 |o-breadc|rumb #[(|
|00002500| 6e 75 6d 29 20 22 08 09 | 4e 83 19 00 c2 08 09 4e |num) "..|N......N|
|00002510| 40 21 88 c3 08 09 4e 21 | 62 88 c4 c5 09 5c 22 87 |@!....N!|b....\".|
|00002520| c4 c6 09 5c 22 87 22 20 | 5b 74 70 75 2d 62 72 65 |...\"." |[tpu-bre|
|00002530| 61 64 63 72 75 6d 62 2d | 70 6c 69 73 74 20 6e 75 |adcrumb-|plist nu|
|00002540| 6d 20 73 77 69 74 63 68 | 2d 74 6f 2d 62 75 66 66 |m switch|-to-buff|
|00002550| 65 72 20 74 70 75 2d 63 | 61 64 72 20 6d 65 73 73 |er tpu-c|adr mess|
|00002560| 61 67 65 20 22 6d 61 72 | 6b 20 25 64 20 66 6f 75 |age "mar|k %d fou|
|00002570| 6e 64 2e 22 20 22 6d 61 | 72 6b 20 25 64 20 6e 6f |nd." "ma|rk %d no|
|00002580| 74 20 66 6f 75 6e 64 2e | 22 5d 20 33 20 22 5c 0a |t found.|"] 3 "\.|
|00002590| 52 65 74 75 72 6e 73 20 | 74 6f 20 61 20 62 72 65 |Returns |to a bre|
|000025a0| 61 64 63 72 75 6d 62 20 | 73 65 74 20 77 69 74 68 |adcrumb |set with|
|000025b0| 20 64 72 6f 70 2d 62 72 | 65 61 64 63 72 75 6d 62 | drop-br|eadcrumb|
|000025c0| 2e 22 20 22 70 22 5d 29 | 0a 28 64 65 66 61 6c 69 |." "p"])|.(defali|
|000025d0| 61 73 20 27 74 70 75 2d | 63 68 61 6e 67 65 2d 63 |as 'tpu-|change-c|
|000025e0| 61 73 65 20 23 5b 28 6e | 75 6d 29 20 22 c0 20 83 |ase #[(n|um) ". .|
|000025f0| 2f 00 c1 20 c2 20 1b 1c | 0b 5c 66 56 83 2a 00 5c |/.. . ..|.\fV.*.\|
|00002600| 66 66 97 5c 66 66 55 83 | 1e 00 c5 82 1f 00 c6 5c |ff.\ffU.|.......\|
|00002610| 66 89 54 5c 22 88 5c 66 | 54 14 82 0b 00 c7 c8 21 |f.T\".\f|T......!|
|00002620| 2a 87 c9 20 83 5d 00 ca | 20 cb 20 1b 1c 0b 5c 66 |*.. .]..| . ...\f|
|00002630| 56 83 59 00 5c 66 66 97 | 5c 66 66 55 83 4d 00 c5 |V.Y.\ff.|\ffU.M..|
|00002640| 82 4e 00 c6 5c 66 89 54 | 5c 22 88 5c 66 54 14 82 |.N..\f.T|\".\fT..|
|00002650| 3a 00 cc 20 2a 87 0e 0d | ce 56 85 8a 00 67 97 67 |:.. *...|.V...g.g|
|00002660| 55 83 6f 00 c5 82 70 00 | c6 60 60 54 5c 22 88 0e |U.o...p.|.``T\"..|
|00002670| 0f 83 7e 00 d0 82 7f 00 | d1 75 88 0e 0d 53 89 16 |..~.....|.u...S..|
|00002680| 0d 82 5f 00 87 22 20 5b | 74 70 75 2d 6d 61 72 6b |.._.." [|tpu-mark|
|00002690| 20 72 65 67 69 6f 6e 2d | 62 65 67 69 6e 6e 69 6e | region-|beginnin|
|000026a0| 67 20 72 65 67 69 6f 6e | 2d 65 6e 64 20 65 6e 64 |g region|-end end|
|000026b0| 20 62 65 67 20 75 70 63 | 61 73 65 2d 72 65 67 69 | beg upc|ase-regi|
|000026c0| 6f 6e 20 64 6f 77 6e 63 | 61 73 65 2d 72 65 67 69 |on downc|ase-regi|
|000026d0| 6f 6e 20 74 70 75 2d 75 | 6e 73 65 6c 65 63 74 20 |on tpu-u|nselect |
|000026e0| 74 20 74 70 75 2d 63 68 | 65 63 6b 2d 6d 61 74 63 |t tpu-ch|eck-matc|
|000026f0| 68 20 74 70 75 2d 6d 61 | 74 63 68 2d 62 65 67 69 |h tpu-ma|tch-begi|
|00002700| 6e 6e 69 6e 67 20 74 70 | 75 2d 6d 61 74 63 68 2d |nning tp|u-match-|
|00002710| 65 6e 64 20 74 70 75 2d | 75 6e 73 65 74 2d 6d 61 |end tpu-|unset-ma|
|00002720| 74 63 68 20 6e 75 6d 20 | 30 20 74 70 75 2d 72 65 |tch num |0 tpu-re|
|00002730| 76 65 72 73 65 20 2d 31 | 20 31 5d 20 34 20 22 5c |verse -1| 1] 4 "\|
|00002740| 0a 43 68 61 6e 67 65 20 | 74 68 65 20 63 61 73 65 |.Change |the case|
|00002750| 20 6f 66 20 74 68 65 20 | 63 68 61 72 61 63 74 65 | of the |characte|
|00002760| 72 20 75 6e 64 65 72 20 | 74 68 65 20 63 75 72 73 |r under |the curs|
|00002770| 6f 72 20 6f 72 20 72 65 | 67 69 6f 6e 2e 0a 41 63 |or or re|gion..Ac|
|00002780| 63 65 70 74 73 20 61 20 | 70 72 65 66 69 78 20 61 |cepts a |prefix a|
|00002790| 72 67 75 6d 65 6e 74 20 | 6f 66 20 74 68 65 20 6e |rgument |of the n|
|000027a0| 75 6d 62 65 72 20 6f 66 | 20 63 68 61 72 61 63 74 |umber of| charact|
|000027b0| 65 72 73 20 74 6f 20 69 | 6e 76 65 72 74 2e 22 20 |ers to i|nvert." |
|000027c0| 22 70 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |"p"]).(d|efalias |
|000027d0| 27 74 70 75 2d 66 69 6c | 6c 20 23 5b 28 6e 75 6d |'tpu-fil|l #[(num|
|000027e0| 29 20 22 c0 20 83 10 00 | c1 60 c0 20 5c 6e 23 88 |) ". ...|.`. \n#.|
|000027f0| c3 c4 21 87 c5 5c 6e 21 | 87 22 20 5b 74 70 75 2d |..!..\n!|." [tpu-|
|00002800| 6d 61 72 6b 20 66 69 6c | 6c 2d 72 65 67 69 6f 6e |mark fil|l-region|
|00002810| 20 6e 75 6d 20 74 70 75 | 2d 75 6e 73 65 6c 65 63 | num tpu|-unselec|
|00002820| 74 20 74 20 66 69 6c 6c | 2d 70 61 72 61 67 72 61 |t t fill|-paragra|
|00002830| 70 68 5d 20 34 20 22 5c | 0a 46 69 6c 6c 20 70 61 |ph] 4 "\|.Fill pa|
|00002840| 72 61 67 72 61 70 68 20 | 6f 72 20 6d 61 72 6b 65 |ragraph |or marke|
|00002850| 64 20 72 65 67 69 6f 6e | 2e 0a 57 69 74 68 20 61 |d region|..With a|
|00002860| 72 67 75 6d 65 6e 74 2c | 20 66 69 6c 6c 20 61 6e |rgument,| fill an|
|00002870| 64 20 6a 75 73 74 69 66 | 79 2e 22 20 22 50 22 5d |d justif|y." "P"]|
|00002880| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 70 75 |).(defal|ias 'tpu|
|00002890| 2d 76 65 72 73 69 6f 6e | 20 23 5b 6e 69 6c 20 22 |-version| #[nil "|
|000028a0| c0 c1 5c 6e 5c 22 87 22 | 20 5b 6d 65 73 73 61 67 |..\n\"."| [messag|
|000028b0| 65 20 22 54 50 55 2d 65 | 64 74 20 76 65 72 73 69 |e "TPU-e|dt versi|
|000028c0| 6f 6e 20 25 73 20 62 79 | 20 52 6f 62 20 52 69 65 |on %s by| Rob Rie|
|000028d0| 70 65 6c 20 28 72 69 65 | 70 65 6c 40 6e 65 74 77 |pel (rie|pel@netw|
|000028e0| 6f 72 6b 69 6e 67 2e 73 | 74 61 6e 66 6f 72 64 2e |orking.s|tanford.|
|000028f0| 65 64 75 29 22 20 74 70 | 75 2d 76 65 72 73 69 6f |edu)" tp|u-versio|
|00002900| 6e 5d 20 33 20 22 5c 0a | 50 72 69 6e 74 20 74 68 |n] 3 "\.|Print th|
|00002910| 65 20 54 50 55 2d 65 64 | 74 20 76 65 72 73 69 6f |e TPU-ed|t versio|
|00002920| 6e 20 6e 75 6d 62 65 72 | 2e 22 20 6e 69 6c 5d 29 |n number|." nil])|
|00002930| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 70 75 2d |.(defali|as 'tpu-|
|00002940| 72 65 73 65 74 2d 73 63 | 72 65 65 6e 2d 73 69 7a |reset-sc|reen-siz|
|00002950| 65 20 23 5b 28 68 65 69 | 67 68 74 20 77 69 64 74 |e #[(hei|ght widt|
|00002960| 68 29 20 22 c0 09 21 88 | c2 0b 21 87 22 20 5b 73 |h) "..!.|..!." [s|
|00002970| 65 74 2d 73 63 72 65 65 | 6e 2d 68 65 69 67 68 74 |et-scree|n-height|
|00002980| 20 68 65 69 67 68 74 20 | 73 65 74 2d 73 63 72 65 | height |set-scre|
|00002990| 65 6e 2d 77 69 64 74 68 | 20 77 69 64 74 68 5d 20 |en-width| width] |
|000029a0| 32 20 22 5c 0a 53 65 74 | 73 20 74 68 65 20 73 63 |2 "\.Set|s the sc|
|000029b0| 72 65 65 6e 20 73 69 7a | 65 2e 22 20 22 6e 6e 65 |reen siz|e." "nne|
|000029c0| 77 20 73 63 72 65 65 6e | 20 68 65 69 67 68 74 3a |w screen| height:|
|000029d0| 20 5c 6e 6e 6e 65 77 20 | 73 63 72 65 65 6e 20 77 | \nnnew |screen w|
|000029e0| 69 64 74 68 3a 20 22 5d | 29 0a 28 64 65 66 61 6c |idth: "]|).(defal|
|000029f0| 69 61 73 20 27 74 70 75 | 2d 74 6f 67 67 6c 65 2d |ias 'tpu|-toggle-|
|00002a00| 6e 65 77 6c 69 6e 65 2d | 61 6e 64 2d 69 6e 64 65 |newline-|and-inde|
|00002a10| 6e 74 20 23 5b 6e 69 6c | 20 22 08 83 10 00 c1 12 |nt #[nil| "......|
|00002a20| c3 10 c4 c5 c6 5c 22 88 | 82 19 00 c7 12 c8 10 c4 |.....\".|........|
|00002a30| c5 c9 5c 22 88 ca 20 88 | 74 85 2c 00 cb cc 08 83 |..\".. .|t.,.....|
|00002a40| 2a 00 cd 82 2b 00 ce 5c | 22 87 22 20 5b 74 70 75 |*...+..\|"." [tpu|
|00002a50| 2d 6e 65 77 6c 69 6e 65 | 2d 61 6e 64 2d 69 6e 64 |-newline|-and-ind|
|00002a60| 65 6e 74 2d 70 20 22 22 | 20 74 70 75 2d 6e 65 77 |ent-p ""| tpu-new|
|00002a70| 6c 69 6e 65 2d 61 6e 64 | 2d 69 6e 64 65 6e 74 2d |line-and|-indent-|
|00002a80| 73 74 72 69 6e 67 20 6e | 69 6c 20 74 70 75 2d 6c |string n|il tpu-l|
|00002a90| 6f 63 61 6c 2d 73 65 74 | 2d 6b 65 79 20 22 0d 22 |ocal-set|-key "."|
|00002aa0| 20 6e 65 77 6c 69 6e 65 | 20 22 20 41 75 74 6f 49 | newline| " AutoI|
|00002ab0| 6e 64 65 6e 74 22 20 74 | 20 6e 65 77 6c 69 6e 65 |ndent" t| newline|
|00002ac0| 2d 61 6e 64 2d 69 6e 64 | 65 6e 74 20 74 70 75 2d |-and-ind|ent tpu-|
|00002ad0| 75 70 64 61 74 65 2d 6d | 6f 64 65 2d 6c 69 6e 65 |update-m|ode-line|
|00002ae0| 20 6d 65 73 73 61 67 65 | 20 22 43 61 72 72 69 61 | message| "Carria|
|00002af0| 67 65 20 72 65 74 75 72 | 6e 20 69 6e 73 65 72 74 |ge retur|n insert|
|00002b00| 73 20 61 20 6e 65 77 6c | 69 6e 65 25 73 22 20 22 |s a newl|ine%s" "|
|00002b10| 20 61 6e 64 20 69 6e 64 | 65 6e 74 73 2e 22 20 22 | and ind|ents." "|
|00002b20| 2e 22 5d 20 33 20 22 5c | 0a 54 6f 67 67 6c 65 20 |."] 3 "\|.Toggle |
|00002b30| 62 65 74 77 65 65 6e 20 | 27 6e 65 77 6c 69 6e 65 |between |'newline|
|00002b40| 20 61 6e 64 20 69 6e 64 | 65 6e 74 27 20 61 6e 64 | and ind|ent' and|
|00002b50| 20 27 73 69 6d 70 6c 65 | 20 6e 65 77 6c 69 6e 65 | 'simple| newline|
|00002b60| 27 2e 22 20 6e 69 6c 5d | 29 0a 28 64 65 66 61 6c |'." nil]|).(defal|
|00002b70| 69 61 73 20 27 74 70 75 | 2d 73 70 65 6c 6c 2d 63 |ias 'tpu|-spell-c|
|00002b80| 68 65 63 6b 20 23 5b 6e | 69 6c 20 22 08 83 18 00 |heck #[n|il "....|
|00002b90| c1 20 83 12 00 c2 c1 20 | 60 5c 22 88 82 29 00 c3 |. ..... |`\"..)..|
|00002ba0| 20 88 82 29 00 c1 20 83 | 26 00 c4 c1 20 60 5c 22 | ..).. .|&... `\"|
|00002bb0| 88 82 29 00 c5 20 88 c1 | 20 85 31 00 c6 c7 21 87 |..).. ..| .1...!.|
|00002bc0| 22 20 5b 74 70 75 2d 68 | 61 76 65 2d 69 73 70 65 |" [tpu-h|ave-ispe|
|00002bd0| 6c 6c 20 74 70 75 2d 6d | 61 72 6b 20 69 73 70 65 |ll tpu-m|ark ispe|
|00002be0| 6c 6c 2d 72 65 67 69 6f | 6e 20 69 73 70 65 6c 6c |ll-regio|n ispell|
|00002bf0| 2d 62 75 66 66 65 72 20 | 73 70 65 6c 6c 2d 72 65 |-buffer |spell-re|
|00002c00| 67 69 6f 6e 20 73 70 65 | 6c 6c 2d 62 75 66 66 65 |gion spe|ll-buffe|
|00002c10| 72 20 74 70 75 2d 75 6e | 73 65 6c 65 63 74 20 74 |r tpu-un|select t|
|00002c20| 5d 20 33 20 22 5c 0a 43 | 68 65 63 6b 73 20 74 68 |] 3 "\.C|hecks th|
|00002c30| 65 20 73 70 65 6c 6c 69 | 6e 67 20 6f 66 20 74 68 |e spelli|ng of th|
|00002c40| 65 20 72 65 67 69 6f 6e | 2c 20 6f 72 20 6f 66 20 |e region|, or of |
|00002c50| 74 68 65 20 65 6e 74 69 | 72 65 20 62 75 66 66 65 |the enti|re buffe|
|00002c60| 72 20 69 66 20 6e 6f 0a | 20 72 65 67 69 6f 6e 20 |r if no.| region |
|00002c70| 69 73 20 73 65 6c 65 63 | 74 65 64 2e 22 20 6e 69 |is selec|ted." ni|
|00002c80| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |l]).(def|alias 't|
|00002c90| 70 75 2d 74 6f 67 67 6c | 65 2d 6f 76 65 72 77 72 |pu-toggl|e-overwr|
|00002ca0| 69 74 65 2d 6d 6f 64 65 | 20 23 5b 6e 69 6c 20 22 |ite-mode| #[nil "|
|00002cb0| 08 83 0d 00 c1 c2 0b 5c | 22 88 c0 c4 21 87 c5 c2 |.......\|"...!...|
|00002cc0| 21 13 c1 c2 c6 5c 22 88 | c0 c7 21 87 22 20 5b 6f |!....\".|..!." [o|
|00002cd0| 76 65 72 77 72 69 74 65 | 2d 6d 6f 64 65 20 74 70 |verwrite|-mode tp|
|00002ce0| 75 2d 6c 6f 63 61 6c 2d | 73 65 74 2d 6b 65 79 20 |u-local-|set-key |
|00002cf0| 22 7f 22 20 74 70 75 2d | 73 61 76 65 64 2d 64 65 |"." tpu-|saved-de|
|00002d00| 6c 65 74 65 2d 66 75 6e | 63 20 30 20 6c 6f 63 61 |lete-fun|c 0 loca|
|00002d10| 6c 2d 6b 65 79 2d 62 69 | 6e 64 69 6e 67 20 70 69 |l-key-bi|nding pi|
|00002d20| 63 74 75 72 65 2d 62 61 | 63 6b 77 61 72 64 2d 63 |cture-ba|ckward-c|
|00002d30| 6c 65 61 72 2d 63 6f 6c | 75 6d 6e 20 31 5d 20 33 |lear-col|umn 1] 3|
|00002d40| 20 22 5c 0a 53 77 69 74 | 63 68 65 73 20 69 6e 20 | "\.Swit|ches in |
|00002d50| 61 6e 64 20 6f 75 74 20 | 6f 66 20 6f 76 65 72 77 |and out |of overw|
|00002d60| 72 69 74 65 20 6d 6f 64 | 65 22 20 6e 69 6c 5d 29 |rite mod|e" nil])|
|00002d70| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 70 75 2d |.(defali|as 'tpu-|
|00002d80| 73 70 65 63 69 61 6c 2d | 69 6e 73 65 72 74 20 23 |special-|insert #|
|00002d90| 5b 28 6e 75 6d 29 20 22 | 08 83 08 00 c1 c2 21 88 |[(num) "|......!.|
|00002da0| 0b 83 10 00 0b 82 11 00 | c4 63 87 22 20 5b 6f 76 |........|.c." [ov|
|00002db0| 65 72 77 72 69 74 65 2d | 6d 6f 64 65 20 64 65 6c |erwrite-|mode del|
|00002dc0| 65 74 65 2d 63 68 61 72 | 20 31 20 6e 75 6d 20 30 |ete-char| 1 num 0|
|00002dd0| 5d 20 32 20 22 5c 0a 49 | 6e 73 65 72 74 20 61 20 |] 2 "\.I|nsert a |
|00002de0| 63 68 61 72 61 63 74 65 | 72 20 6f 72 20 63 6f 6e |characte|r or con|
|00002df0| 74 72 6f 6c 20 63 6f 64 | 65 20 61 63 63 6f 72 64 |trol cod|e accord|
|00002e00| 69 6e 67 20 74 6f 0a 69 | 74 73 20 41 53 43 49 49 |ing to.i|ts ASCII|
|00002e10| 20 64 65 63 69 6d 61 6c | 20 76 61 6c 75 65 2e 22 | decimal| value."|
|00002e20| 20 22 50 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | "P"]).(|defalias|
|00002e30| 20 27 74 70 75 2d 71 75 | 6f 74 65 64 2d 69 6e 73 | 'tpu-qu|oted-ins|
|00002e40| 65 72 74 20 23 5b 28 6e | 75 6d 29 20 22 c0 20 19 |ert #[(n|um) ". .|
|00002e50| 5c 6e 83 0b 00 c3 5c 66 | 21 88 c5 09 5c 66 5c 22 |\n....\f|!...\f\"|
|00002e60| 29 87 22 20 5b 72 65 61 | 64 2d 63 68 61 72 20 63 |)." [rea|d-char c|
|00002e70| 68 61 72 20 6f 76 65 72 | 77 72 69 74 65 2d 6d 6f |har over|write-mo|
|00002e80| 64 65 20 64 65 6c 65 74 | 65 2d 63 68 61 72 20 6e |de delet|e-char n|
|00002e90| 75 6d 20 69 6e 73 65 72 | 74 2d 63 68 61 72 5d 20 |um inser|t-char] |
|00002ea0| 33 20 22 5c 0a 52 65 61 | 64 20 6e 65 78 74 20 69 |3 "\.Rea|d next i|
|00002eb0| 6e 70 75 74 20 63 68 61 | 72 61 63 74 65 72 20 61 |nput cha|racter a|
|00002ec0| 6e 64 20 69 6e 73 65 72 | 74 20 69 74 2e 0a 54 68 |nd inser|t it..Th|
|00002ed0| 69 73 20 69 73 20 75 73 | 65 66 75 6c 20 66 6f 72 |is is us|eful for|
|00002ee0| 20 69 6e 73 65 72 74 69 | 6e 67 20 63 6f 6e 74 72 | inserti|ng contr|
|00002ef0| 6f 6c 20 63 68 61 72 61 | 63 74 65 72 73 2e 22 20 |ol chara|cters." |
|00002f00| 22 2a 70 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |"*p"]).(|defalias|
|00002f10| 20 27 74 70 75 2d 69 6e | 63 6c 75 64 65 20 23 5b | 'tpu-in|clude #[|
|00002f20| 28 66 69 6c 65 29 20 22 | 8a c0 09 21 88 c2 c3 21 |(file) "|...!...!|
|00002f30| 29 87 22 20 5b 69 6e 73 | 65 72 74 2d 66 69 6c 65 |)." [ins|ert-file|
|00002f40| 20 66 69 6c 65 20 6d 65 | 73 73 61 67 65 20 22 22 | file me|ssage ""|
|00002f50| 5d 20 32 20 22 5c 0a 54 | 50 55 2d 6c 69 6b 65 20 |] 2 "\.T|PU-like |
|00002f60| 69 6e 63 6c 75 64 65 20 | 66 69 6c 65 22 20 22 66 |include |file" "f|
|00002f70| 49 6e 63 6c 75 64 65 20 | 66 69 6c 65 3a 20 22 5d |Include |file: "]|
|00002f80| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 70 75 |).(defal|ias 'tpu|
|00002f90| 2d 67 65 74 20 23 5b 28 | 66 69 6c 65 29 20 22 c0 |-get #[(|file) ".|
|00002fa0| 09 21 87 22 20 5b 66 69 | 6e 64 2d 66 69 6c 65 20 |.!." [fi|nd-file |
|00002fb0| 66 69 6c 65 5d 20 32 20 | 22 5c 0a 54 50 55 2d 6c |file] 2 |"\.TPU-l|
|00002fc0| 69 6b 65 20 67 65 74 20 | 66 69 6c 65 22 20 22 46 |ike get |file" "F|
|00002fd0| 46 69 6c 65 20 74 6f 20 | 67 65 74 3a 20 22 5d 29 |File to |get: "])|
|00002fe0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 70 75 2d |.(defali|as 'tpu-|
|00002ff0| 77 68 61 74 2d 6c 69 6e | 65 20 23 5b 6e 69 6c 20 |what-lin|e #[nil |
|00003000| 22 6d 83 5c 66 00 c0 c1 | c2 c3 64 5c 22 5c 22 87 |"m.\f...|..d\"\".|
|00003010| c0 c4 c2 c3 60 54 5c 22 | c2 c3 64 5c 22 23 87 22 |....`T\"|..d\"#."|
|00003020| 20 5b 6d 65 73 73 61 67 | 65 20 22 59 6f 75 20 61 | [messag|e "You a|
|00003030| 72 65 20 61 74 20 74 68 | 65 20 45 6e 64 20 6f 66 |re at th|e End of|
|00003040| 20 42 75 66 66 65 72 2e | 20 20 54 68 65 20 6c 61 | Buffer.| The la|
|00003050| 73 74 20 6c 69 6e 65 20 | 69 73 20 25 64 2e 22 20 |st line |is %d." |
|00003060| 63 6f 75 6e 74 2d 6c 69 | 6e 65 73 20 31 20 22 4c |count-li|nes 1 "L|
|00003070| 69 6e 65 20 25 64 20 6f | 66 20 25 64 22 5d 20 36 |ine %d o|f %d"] 6|
|00003080| 20 22 5c 0a 54 65 6c 6c | 73 20 77 68 61 74 20 6c | "\.Tell|s what l|
|00003090| 69 6e 65 20 74 68 65 20 | 70 6f 69 6e 74 20 69 73 |ine the |point is|
|000030a0| 20 6f 6e 2c 0a 20 61 6e | 64 20 74 68 65 20 74 6f | on,. an|d the to|
|000030b0| 74 61 6c 20 6e 75 6d 62 | 65 72 20 6f 66 20 6c 69 |tal numb|er of li|
|000030c0| 6e 65 73 20 69 6e 20 74 | 68 65 20 62 75 66 66 65 |nes in t|he buffe|
|000030d0| 72 2e 22 20 6e 69 6c 5d | 29 0a 28 64 65 66 61 6c |r." nil]|).(defal|
|000030e0| 69 61 73 20 27 74 70 75 | 2d 65 78 69 74 20 23 5b |ias 'tpu|-exit #[|
|000030f0| 6e 69 6c 20 22 c0 20 c1 | 3d 84 5c 6e 00 c2 20 87 |nil ". .|=.\n.. .|
|00003100| c3 20 88 c4 20 87 22 20 | 5b 72 65 63 75 72 73 69 |. .. ." |[recursi|
|00003110| 6f 6e 2d 64 65 70 74 68 | 20 30 20 65 78 69 74 2d |on-depth| 0 exit-|
|00003120| 72 65 63 75 72 73 69 76 | 65 2d 65 64 69 74 20 73 |recursiv|e-edit s|
|00003130| 61 76 65 2d 62 75 66 66 | 65 72 20 73 61 76 65 2d |ave-buff|er save-|
|00003140| 62 75 66 66 65 72 73 2d | 6b 69 6c 6c 2d 65 6d 61 |buffers-|kill-ema|
|00003150| 63 73 5d 20 32 20 22 5c | 0a 45 78 69 74 20 74 68 |cs] 2 "\|.Exit th|
|00003160| 65 20 77 61 79 20 54 50 | 55 20 64 6f 65 73 2c 20 |e way TP|U does, |
|00003170| 73 61 76 65 20 63 75 72 | 72 65 6e 74 20 62 75 66 |save cur|rent buf|
|00003180| 66 65 72 20 61 6e 64 20 | 61 73 6b 20 61 62 6f 75 |fer and |ask abou|
|00003190| 74 20 6f 74 68 65 72 73 | 2e 22 20 6e 69 6c 5d 29 |t others|." nil])|
|000031a0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 70 75 2d |.(defali|as 'tpu-|
|000031b0| 71 75 69 74 20 23 5b 6e | 69 6c 20 22 c0 20 c1 1a |quit #[n|il ". ..|
|000031c0| 1b 0b 83 32 00 5c 6e 83 | 32 00 0b 40 1c c5 5c 66 |...2.\n.|2..@..\f|
|000031d0| 21 83 2b 00 c6 5c 66 21 | 83 2b 00 c7 c8 21 83 29 |!.+..\f!|.+...!.)|
|000031e0| 00 c9 c1 21 88 82 2b 00 | ca 12 0b 41 13 29 82 05 |...!..+.|...A.)..|
|000031f0| 00 5c 6e 85 39 00 c9 c1 | 21 2a 87 22 20 5b 62 75 |.\n.9...|!*." [bu|
|00003200| 66 66 65 72 2d 6c 69 73 | 74 20 74 20 77 6f 72 6b |ffer-lis|t t work|
|00003210| 69 6e 67 20 6c 69 73 74 | 20 62 75 66 66 65 72 20 |ing list| buffer |
|00003220| 62 75 66 66 65 72 2d 66 | 69 6c 65 2d 6e 61 6d 65 |buffer-f|ile-name|
|00003230| 20 62 75 66 66 65 72 2d | 6d 6f 64 69 66 69 65 64 | buffer-|modified|
|00003240| 2d 70 20 74 70 75 2d 79 | 2d 6f 72 2d 6e 2d 70 20 |-p tpu-y|-or-n-p |
|00003250| 22 4d 6f 64 69 66 69 63 | 61 74 69 6f 6e 73 20 77 |"Modific|ations w|
|00003260| 69 6c 6c 20 6e 6f 74 20 | 62 65 20 73 61 76 65 64 |ill not |be saved|
|00003270| 2c 20 63 6f 6e 74 69 6e | 75 65 20 71 75 69 74 74 |, contin|ue quitt|
|00003280| 69 6e 67 3f 20 22 20 6b | 69 6c 6c 2d 65 6d 61 63 |ing? " k|ill-emac|
|00003290| 73 20 6e 69 6c 5d 20 32 | 20 22 5c 0a 51 75 69 74 |s nil] 2| "\.Quit|
|000032a0| 20 74 68 65 20 77 61 79 | 20 54 50 55 20 64 6f 65 | the way| TPU doe|
|000032b0| 73 2c 20 61 73 6b 20 74 | 6f 20 6d 61 6b 65 20 73 |s, ask t|o make s|
|000032c0| 75 72 65 20 63 68 61 6e | 67 65 73 20 73 68 6f 75 |ure chan|ges shou|
|000032d0| 6c 64 20 62 65 20 61 62 | 61 6e 64 6f 6e 65 64 2e |ld be ab|andoned.|
|000032e0| 22 20 6e 69 6c 5d 29 0a | 28 62 79 74 65 2d 63 6f |" nil]).|(byte-co|
|000032f0| 64 65 20 22 c0 c1 4d 88 | c2 c1 4d 88 c3 c1 4d 88 |de "..M.|..M...M.|
|00003300| c4 c1 4d 88 c5 c6 4d 88 | c7 c6 4d 88 c8 c9 4d 88 |..M...M.|..M...M.|
|00003310| ca c9 4d 88 cb cc 4d 88 | cd cc 4d 88 ce cf 4d 88 |..M...M.|..M...M.|
|00003320| d0 cf 4d 88 d1 d2 4d 88 | d3 d2 4d 88 d4 d5 4d 88 |..M...M.|..M...M.|
|00003330| d6 d5 4d 88 d7 d8 4d 88 | d9 d8 4d 88 da db 4d 88 |..M...M.|..M...M.|
|00003340| dc db 4d 88 dd de 4d 88 | df de 4d 88 e0 e1 4d 88 |..M...M.|..M...M.|
|00003350| e2 e1 4d 88 e3 e4 4d 88 | e5 e4 4d 88 e6 e7 21 84 |..M...M.|..M...!.|
|00003360| 72 00 e7 e8 4d 88 e9 16 | 2a eb 16 2c ed ee 21 84 |r...M...|*..,..!.|
|00003370| 84 00 ef f0 f1 5c 22 16 | 2e ed f2 21 84 90 00 ef |.....\".|...!....|
|00003380| f0 f3 5c 22 16 32 ed f4 | 21 84 99 00 f5 16 34 ed |..\".2..|!.....4.|
|00003390| f6 21 84 a2 00 f7 16 36 | ed f8 21 84 ab 00 f9 16 |.!.....6|..!.....|
|000033a0| 38 ed fa 21 84 b4 00 fb | 16 3a c0 87 22 20 5b 74 |8..!....|.:.." [t|
|000033b0| 70 75 2d 65 64 74 2d 6d | 6f 64 65 20 74 70 75 2d |pu-edt-m|ode tpu-|
|000033c0| 65 64 74 2d 6f 6e 20 54 | 50 55 2d 45 44 54 2d 4d |edt-on T|PU-EDT-M|
|000033d0| 4f 44 45 20 74 70 75 2d | 65 64 74 20 54 50 55 2d |ODE tpu-|edt TPU-|
|000033e0| 45 44 54 20 65 78 69 74 | 20 74 70 75 2d 65 78 69 |EDT exit| tpu-exi|
|000033f0| 74 20 45 58 49 54 20 47 | 65 74 20 74 70 75 2d 67 |t EXIT G|et tpu-g|
|00003400| 65 74 20 47 45 54 20 69 | 6e 63 6c 75 64 65 20 74 |et GET i|nclude t|
|00003410| 70 75 2d 69 6e 63 6c 75 | 64 65 20 49 4e 43 4c 55 |pu-inclu|de INCLU|
|00003420| 44 45 20 71 75 69 74 20 | 74 70 75 2d 71 75 69 74 |DE quit |tpu-quit|
|00003430| 20 51 55 49 54 20 73 70 | 65 6c 6c 20 74 70 75 2d | QUIT sp|ell tpu-|
|00003440| 73 70 65 6c 6c 2d 63 68 | 65 63 6b 20 53 50 45 4c |spell-ch|eck SPEL|
|00003450| 4c 20 77 68 61 74 5c 20 | 6c 69 6e 65 20 74 70 75 |L what\ |line tpu|
|00003460| 2d 77 68 61 74 2d 6c 69 | 6e 65 20 57 48 41 54 5c |-what-li|ne WHAT\|
|00003470| 20 4c 49 4e 45 20 72 65 | 70 6c 61 63 65 20 74 70 | LINE re|place tp|
|00003480| 75 2d 6c 6d 2d 72 65 70 | 6c 61 63 65 20 52 45 50 |u-lm-rep|lace REP|
|00003490| 4c 41 43 45 20 68 65 6c | 70 20 74 70 75 2d 68 65 |LACE hel|p tpu-he|
|000034a0| 6c 70 20 48 45 4c 50 20 | 73 65 74 5c 20 63 75 72 |lp HELP |set\ cur|
|000034b0| 73 6f 72 5c 20 66 72 65 | 65 20 74 70 75 2d 73 65 |sor\ fre|e tpu-se|
|000034c0| 74 2d 63 75 72 73 6f 72 | 2d 66 72 65 65 20 53 45 |t-cursor|-free SE|
|000034d0| 54 5c 20 43 55 52 53 4f | 52 5c 20 46 52 45 45 20 |T\ CURSO|R\ FREE |
|000034e0| 73 65 74 5c 20 63 75 72 | 73 6f 72 5c 20 62 6f 75 |set\ cur|sor\ bou|
|000034f0| 6e 64 20 74 70 75 2d 73 | 65 74 2d 63 75 72 73 6f |nd tpu-s|et-curso|
|00003500| 72 2d 62 6f 75 6e 64 20 | 53 45 54 5c 20 43 55 52 |r-bound |SET\ CUR|
|00003510| 53 4f 52 5c 20 42 4f 55 | 4e 44 20 73 65 74 5c 20 |SOR\ BOU|ND set\ |
|00003520| 73 63 72 6f 6c 6c 5c 20 | 6d 61 72 67 69 6e 73 20 |scroll\ |margins |
|00003530| 74 70 75 2d 73 65 74 2d | 73 63 72 6f 6c 6c 2d 6d |tpu-set-|scroll-m|
|00003540| 61 72 67 69 6e 73 20 53 | 45 54 5c 20 53 43 52 4f |argins S|ET\ SCRO|
|00003550| 4c 4c 5c 20 4d 41 52 47 | 49 4e 53 20 66 62 6f 75 |LL\ MARG|INS fbou|
|00003560| 6e 64 70 20 6e 65 78 74 | 2d 6c 69 6e 65 2d 69 6e |ndp next|-line-in|
|00003570| 74 65 72 6e 61 6c 20 6c | 69 6e 65 2d 6d 6f 76 65 |ternal l|ine-move|
|00003580| 20 22 5c 66 5c 6e 20 20 | 20 20 20 20 20 20 20 20 | "\f\n | |
|00003590| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000035a0| 5f 5f 5f 5f 5f 5f 5f 20 | 20 20 20 5f 5f 5f 5f 5f |_______ | _____|
|000035b0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000035c0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5c 6e 20 20 20 20 |________|__\n |
|000035d0| 20 20 20 20 20 7c 20 48 | 45 4c 50 20 20 7c 20 20 | | H|ELP | |
|000035e0| 20 20 20 20 44 6f 20 20 | 20 20 20 20 20 7c 20 20 | Do | | |
|000035f0| 7c 20 20 20 20 20 20 20 | 7c 20 20 20 20 20 20 20 || || |
|00003600| 7c 20 20 20 20 20 20 20 | 7c 20 20 20 20 20 20 20 || || |
|00003610| 7c 5c 6e 20 20 20 20 20 | 20 20 20 20 7c 4b 65 79 ||\n | |Key|
|00003620| 44 65 66 73 7c 20 20 20 | 20 20 20 20 20 20 20 20 |Defs| | |
|00003630| 20 20 20 20 7c 20 20 7c | 20 20 20 20 20 20 20 7c | | || ||
|00003640| 20 20 20 20 20 20 20 7c | 20 20 20 20 20 20 20 7c | || ||
|00003650| 20 20 20 20 20 20 20 7c | 5c 6e 20 20 20 20 20 20 | ||\n |
|00003660| 20 20 20 7c 5f 5f 5f 5f | 5f 5f 5f 7c 5f 5f 5f 5f | |____|___|____|
|00003670| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 7c 20 20 7c 5f |________|___| |_|
|00003680| 5f 5f 5f 5f 5f 5f 7c 5f | 5f 5f 5f 5f 5f 5f 7c 5f |______|_|______|_|
|00003690| 5f 5f 5f 5f 5f 5f 7c 5f | 5f 5f 5f 5f 5f 5f 7c 5c |______|_|______|\|
|000036a0| 6e 20 20 20 20 20 20 20 | 20 20 20 5f 5f 5f 5f 5f |n | _____|
|000036b0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000036c0| 5f 5f 20 20 20 20 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |__ __|________|
|000036d0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000036e0| 5f 5f 5f 5f 5f 5c 6e 20 | 20 20 20 20 20 20 20 20 |_____\n | |
|000036f0| 7c 20 46 69 6e 64 20 20 | 7c 49 6e 73 65 72 74 20 || Find ||Insert |
|00003700| 7c 52 65 6d 6f 76 65 20 | 7c 20 20 7c 20 47 6f 6c ||Remove || | Gol|
|00003710| 64 20 20 7c 20 48 45 4c | 50 20 20 7c 46 6e 64 4e |d | HEL|P |FndN|
|00003720| 78 74 20 7c 20 44 65 6c | 20 4c 20 7c 5c 6e 20 20 |xt | Del| L |\n |
|00003730| 20 20 20 20 20 20 20 7c | 20 20 20 20 20 20 20 7c | || ||
|00003740| 20 20 20 20 20 20 20 7c | 53 74 6f 20 54 65 78 7c | ||Sto Tex||
|00003750| 20 20 7c 20 20 6b 65 79 | 20 20 7c 45 2d 48 65 6c | | key| |E-Hel|
|00003760| 70 20 7c 20 46 69 6e 64 | 20 20 7c 55 6e 64 65 6c |p | Find| |Undel|
|00003770| 20 4c 7c 5c 6e 20 20 20 | 20 20 20 20 20 20 7c 5f | L|\n | |_|
|00003780| 5f 5f 5f 5f 5f 5f 7c 5f | 5f 5f 5f 5f 5f 5f 7c 5f |______|_|______|_|
|00003790| 5f 5f 5f 5f 5f 5f 7c 20 | 20 7c 5f 5f 5f 5f 5f 5f |______| | |______|
|000037a0| 5f 7c 5f 5f 5f 5f 5f 5f | 5f 7c 5f 5f 5f 5f 5f 5f |_|______|_|______|
|000037b0| 5f 7c 5f 5f 5f 5f 5f 5f | 5f 7c 5c 6e 20 20 20 20 |_|______|_|\n |
|000037c0| 20 20 20 20 20 7c 53 65 | 6c 65 63 74 20 7c 50 72 | |Se|lect |Pr|
|000037d0| 65 20 53 63 72 7c 4e 65 | 78 20 53 63 72 7c 20 20 |e Scr|Ne|x Scr| |
|000037e0| 7c 20 50 61 67 65 20 20 | 7c 20 53 65 63 74 20 20 || Page || Sect |
|000037f0| 7c 41 70 70 65 6e 64 20 | 7c 20 44 65 6c 20 57 20 ||Append || Del W |
|00003800| 7c 5c 6e 20 20 20 20 20 | 20 20 20 20 7c 20 52 65 ||\n | | Re|
|00003810| 73 65 74 20 7c 50 72 65 | 20 57 69 6e 7c 4e 65 78 |set |Pre| Win|Nex|
|00003820| 20 57 69 6e 7c 20 20 7c | 20 20 44 6f 20 20 20 7c | Win| || Do ||
|00003830| 20 46 69 6c 6c 20 20 7c | 52 65 70 6c 61 63 65 7c | Fill ||Replace||
|00003840| 55 6e 64 65 6c 20 57 7c | 5c 6e 20 20 20 20 20 20 |Undel W||\n |
|00003850| 20 20 20 7c 5f 5f 5f 5f | 5f 5f 5f 7c 5f 5f 5f 5f | |____|___|____|
|00003860| 5f 5f 5f 7c 5f 5f 5f 5f | 5f 5f 5f 7c 20 20 7c 5f |___|____|___| |_|
|00003870| 5f 5f 5f 5f 5f 5f 7c 5f | 5f 5f 5f 5f 5f 5f 7c 5f |______|_|______|_|
|00003880| 5f 5f 5f 5f 5f 5f 7c 5f | 5f 5f 5f 5f 5f 5f 7c 5c |______|_|______|\|
|00003890| 6e 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |n | |
|000038a0| 20 20 7c 4d 6f 76 65 20 | 75 70 7c 20 20 20 20 20 | |Move |up| |
|000038b0| 20 20 20 20 20 7c 46 6f | 72 77 61 72 64 7c 52 65 | |Fo|rward|Re|
|000038c0| 76 65 72 73 65 7c 52 65 | 6d 6f 76 65 20 7c 20 44 |verse|Re|move | D|
|000038d0| 65 6c 20 43 20 7c 5c 6e | 20 20 20 20 20 20 20 20 |el C |\n| |
|000038e0| 20 20 20 20 20 20 20 20 | 20 7c 20 20 54 6f 70 20 | | | Top |
|000038f0| 20 7c 20 20 20 20 20 20 | 20 20 20 20 7c 42 6f 74 | | | |Bot|
|00003900| 74 6f 6d 20 7c 20 20 54 | 6f 70 20 20 7c 49 6e 73 |tom | T|op |Ins|
|00003910| 65 72 74 20 7c 55 6e 64 | 65 6c 20 43 7c 5c 6e 20 |ert |Und|el C|\n |
|00003920| 20 20 20 20 20 20 20 20 | 20 5f 5f 5f 5f 5f 5f 5f | | _______|
|00003930| 7c 5f 5f 5f 5f 5f 5f 5f | 7c 5f 5f 5f 5f 5f 5f 5f ||_______||_______|
|00003940| 20 20 20 7c 5f 5f 5f 5f | 5f 5f 5f 7c 5f 5f 5f 5f | |____|___|____|
|00003950| 5f 5f 5f 7c 5f 5f 5f 5f | 5f 5f 5f 7c 5f 5f 5f 5f |___|____|___|____|
|00003960| 5f 5f 5f 7c 5c 6e 20 20 | 20 20 20 20 20 20 20 7c |___|\n | ||
|00003970| 4d 6f 76 20 4c 65 66 7c | 4d 6f 76 20 44 6f 77 7c |Mov Lef||Mov Dow||
|00003980| 4d 6f 76 20 52 69 67 7c | 20 20 7c 20 57 6f 72 64 |Mov Rig|| | Word|
|00003990| 20 20 7c 20 20 45 4f 4c | 20 20 7c 20 43 68 61 72 | | EOL| | Char|
|000039a0| 20 20 7c 20 20 20 20 20 | 20 20 7c 5c 6e 20 20 20 | | | |\n |
|000039b0| 20 20 20 20 20 20 7c 53 | 74 61 4f 66 4c 69 7c 42 | |S|taOfLi|B|
|000039c0| 6f 74 74 6f 6d 20 7c 45 | 6e 64 4f 66 4c 69 7c 20 |ottom |E|ndOfLi| |
|000039d0| 20 7c 43 68 6e 67 43 61 | 73 7c 44 65 6c 20 45 4f | |ChngCa|s|Del EO|
|000039e0| 4c 7c 53 70 65 63 49 6e | 73 7c 20 45 6e 74 65 72 |L|SpecIn|s| Enter|
|000039f0| 20 7c 5c 6e 20 20 20 20 | 20 20 20 20 20 7c 5f 5f | |\n | |__|
|00003a00| 5f 5f 5f 5f 5f 7c 5f 5f | 5f 5f 5f 5f 5f 7c 5f 5f |_____|__|_____|__|
|00003a10| 5f 5f 5f 5f 5f 7c 20 20 | 7c 5f 5f 5f 5f 5f 5f 5f |_____| ||_______|
|00003a20| 7c 5f 5f 5f 5f 5f 5f 5f | 7c 5f 5f 5f 5f 5f 5f 5f ||_______||_______|
|00003a30| 7c 20 20 20 20 20 20 20 | 7c 5c 6e 20 20 20 20 20 || ||\n |
|00003a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 7c | | ||
|00003a60| 20 20 20 20 20 4c 69 6e | 65 20 20 20 20 20 20 7c | Lin|e ||
|00003a70| 53 65 6c 65 63 74 20 7c | 20 53 75 62 73 20 20 7c |Select || Subs ||
|00003a80| 5c 6e 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |\n | |
|00003a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003aa0| 20 20 20 20 20 20 7c 20 | 20 20 4f 70 65 6e 20 4c | | | Open L|
|00003ab0| 69 6e 65 20 20 20 7c 20 | 52 65 73 65 74 20 7c 20 |ine | |Reset | |
|00003ac0| 20 20 20 20 20 20 7c 5c | 6e 20 20 20 20 20 20 20 | |\|n |
|00003ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 7c 5f 5f | | |__|
|00003af0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 7c 5f 5f |________|_____|__|
|00003b00| 5f 5f 5f 5f 5f 7c 5f 5f | 5f 5f 5f 5f 5f 7c 5c 6e |_____|__|_____|\n|
|00003b10| 22 20 74 70 75 2d 68 65 | 6c 70 2d 6b 65 79 70 61 |" tpu-he|lp-keypa|
|00003b20| 64 2d 6d 61 70 20 22 5c | 6e 5c 6e 5c 6e 5c 6e 5c |d-map "\|n\n\n\n\|
|00003b30| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 6e 5c 6e 5c 6e 5c |n\n\n\n\|n\n\n\n\|
|00003b40| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 6e 5c 6e 5c 6e 5c |n\n\n\n\|n\n\n\n\|
|00003b50| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 6e 5c 6e 5c 6e 5c |n\n\n\n\|n\n\n\n\|
|00003b60| 6e 5c 6e 5c 6e 5c 6e 5c | 6e 5c 6e 5c 6e 5c 6e 5c |n\n\n\n\|n\n\n\n\|
|00003b70| 6e 5c 6e 5c 6e 5c 66 5c | 6e 5c 6e 20 20 20 20 20 |n\n\n\f\|n\n |
|00003b80| 20 43 6f 6e 74 72 6f 6c | 20 43 68 61 72 61 63 74 | Control| Charact|
|00003b90| 65 72 73 5c 6e 5c 6e 20 | 20 20 20 20 20 5e 41 20 |ers\n\n | ^A |
|00003ba0| 20 74 6f 67 67 6c 65 20 | 69 6e 73 65 72 74 20 61 | toggle |insert a|
|00003bb0| 6e 64 20 6f 76 65 72 77 | 72 69 74 65 5c 6e 20 20 |nd overw|rite\n |
|00003bc0| 20 20 20 20 5e 42 20 20 | 72 65 63 61 6c 6c 5c 6e | ^B |recall\n|
|00003bd0| 20 20 20 20 20 20 5e 45 | 20 20 65 6e 64 20 6f 66 | ^E| end of|
|00003be0| 20 6c 69 6e 65 5c 6e 5c | 6e 20 20 20 20 20 20 5e | line\n\|n ^|
|00003bf0| 47 20 20 43 61 6e 63 65 | 6c 20 63 75 72 72 65 6e |G Cance|l curren|
|00003c00| 74 20 6f 70 65 72 61 74 | 69 6f 6e 5c 6e 20 20 20 |t operat|ion\n |
|00003c10| 20 20 20 5e 48 20 20 62 | 65 67 69 6e 6e 69 6e 67 | ^H b|eginning|
|00003c20| 20 6f 66 20 6c 69 6e 65 | 5c 6e 20 20 20 20 20 20 | of line|\n |
|00003c30| 5e 4a 20 20 64 65 6c 65 | 74 65 20 70 72 65 76 69 |^J dele|te previ|
|00003c40| 6f 75 73 20 77 6f 72 64 | 5c 6e 5c 6e 20 20 20 20 |ous word|\n\n |
|00003c50| 20 20 5e 4b 20 20 6c 65 | 61 72 6e 5c 6e 20 20 20 | ^K le|arn\n |
|00003c60| 20 20 20 5e 4c 20 20 69 | 6e 73 65 72 74 20 70 61 | ^L i|nsert pa|
|00003c70| 67 65 20 62 72 65 61 6b | 5c 6e 20 20 20 20 20 20 |ge break|\n |
|00003c80| 5e 52 20 20 72 65 6d 65 | 6d 62 65 72 20 28 64 75 |^R reme|mber (du|
|00003c90| 72 69 6e 67 20 6c 65 61 | 72 6e 29 2c 20 72 65 2d |ring lea|rn), re-|
|00003ca0| 63 65 6e 74 65 72 5c 6e | 5c 6e 20 20 20 20 20 20 |center\n|\n |
|00003cb0| 5e 55 20 20 64 65 6c 65 | 74 65 20 74 6f 20 62 65 |^U dele|te to be|
|00003cc0| 67 69 6e 6e 69 6e 67 20 | 6f 66 20 6c 69 6e 65 5c |ginning |of line\|
|00003cd0| 6e 20 20 20 20 20 20 5e | 56 20 20 71 75 6f 74 65 |n ^|V quote|
|00003ce0| 5c 6e 20 20 20 20 20 20 | 5e 57 20 20 72 65 66 72 |\n |^W refr|
|00003cf0| 65 73 68 5c 6e 5c 6e 20 | 20 20 20 20 20 5e 5a 20 |esh\n\n | ^Z |
|00003d00| 20 65 78 69 74 5c 6e 20 | 20 20 20 5e 58 5e 58 20 | exit\n | ^X^X |
|00003d10| 20 65 78 63 68 61 6e 67 | 65 20 70 6f 69 6e 74 20 | exchang|e point |
|00003d20| 61 6e 64 20 6d 61 72 6b | 20 2d 20 75 73 65 66 75 |and mark| - usefu|
|00003d30| 6c 20 66 6f 72 20 63 68 | 65 63 6b 69 6e 67 20 72 |l for ch|ecking r|
|00003d40| 65 67 69 6f 6e 20 62 6f | 75 6e 64 61 72 69 65 73 |egion bo|undaries|
|00003d50| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |\n\n\n\n|\n\n\n\n|
|00003d60| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |\n\n\n\n|\n\n\n\n|
|00003d70| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |\n\n\n\n|\n\n\n\n|
|00003d80| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |\n\n\n\n|\n\n\n\n|
|00003d90| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |\n\n\n\n|\n\n\n\n|
|00003da0| 5c 66 5c 6e 20 20 20 20 | 20 20 20 47 6f 6c 64 2d |\f\n | Gold-|
|00003db0| 3c 6b 65 79 3e 20 46 75 | 6e 63 74 69 6f 6e 73 5c |<key> Fu|nctions\|
|00003dc0| 6e 5c 6e 20 20 20 20 20 | 20 20 42 20 20 20 20 20 |n\n | B |
|00003dd0| 4e 65 78 74 20 42 75 66 | 66 65 72 20 2d 20 64 69 |Next Buf|fer - di|
|00003de0| 73 70 6c 61 79 20 74 68 | 65 20 6e 65 78 74 20 62 |splay th|e next b|
|00003df0| 75 66 66 65 72 20 28 61 | 6c 6c 20 62 75 66 66 65 |uffer (a|ll buffe|
|00003e00| 72 73 29 5c 6e 20 20 20 | 20 20 20 20 43 20 20 20 |rs)\n | C |
|00003e10| 20 20 52 65 63 61 6c 6c | 20 2d 20 65 64 69 74 20 | Recall| - edit |
|00003e20| 61 6e 64 20 70 6f 73 73 | 69 62 6c 79 20 72 65 70 |and poss|ibly rep|
|00003e30| 65 61 74 20 70 72 65 76 | 69 6f 75 73 20 63 6f 6d |eat prev|ious com|
|00003e40| 6d 61 6e 64 73 5c 6e 20 | 20 20 20 20 20 20 45 20 |mands\n | E |
|00003e50| 20 20 20 20 45 78 69 74 | 20 2d 20 73 61 76 65 20 | Exit| - save |
|00003e60| 63 75 72 72 65 6e 74 20 | 62 75 66 66 65 72 20 61 |current |buffer a|
|00003e70| 6e 64 20 61 73 6b 20 61 | 62 6f 75 74 20 6f 74 68 |nd ask a|bout oth|
|00003e80| 65 72 73 5c 6e 5c 6e 20 | 20 20 20 20 20 20 47 20 |ers\n\n | G |
|00003e90| 20 20 20 20 47 65 74 20 | 2d 20 6c 6f 61 64 20 61 | Get |- load a|
|00003ea0| 20 66 69 6c 65 20 69 6e | 74 6f 20 61 20 6e 65 77 | file in|to a new|
|00003eb0| 20 65 64 69 74 20 62 75 | 66 66 65 72 5c 6e 20 20 | edit bu|ffer\n |
|00003ec0| 20 20 20 20 20 49 20 20 | 20 20 20 49 6e 63 6c 75 | I | Inclu|
|00003ed0| 64 65 20 2d 20 69 6e 63 | 6c 75 64 65 20 61 20 66 |de - inc|lude a f|
|00003ee0| 69 6c 65 20 69 6e 20 74 | 68 69 73 20 62 75 66 66 |ile in t|his buff|
|00003ef0| 65 72 5c 6e 20 20 20 20 | 20 20 20 4b 20 20 20 20 |er\n | K |
|00003f00| 20 4b 69 6c 6c 20 42 75 | 66 66 65 72 20 2d 20 61 | Kill Bu|ffer - a|
|00003f10| 62 61 6e 64 6f 6e 20 65 | 64 69 74 73 20 61 6e 64 |bandon e|dits and|
|00003f20| 20 64 65 6c 65 74 65 20 | 62 75 66 66 65 72 5c 6e | delete |buffer\n|
|00003f30| 5c 6e 20 20 20 20 20 20 | 20 4d 20 20 20 20 20 42 |\n | M B|
|00003f40| 75 66 66 65 72 20 4d 65 | 6e 75 20 2d 20 64 69 73 |uffer Me|nu - dis|
|00003f50| 70 6c 61 79 20 61 20 6c | 69 73 74 20 6f 66 20 61 |play a l|ist of a|
|00003f60| 6c 6c 20 62 75 66 66 65 | 72 73 5c 6e 20 20 20 20 |ll buffe|rs\n |
|00003f70| 20 20 20 4e 20 20 20 20 | 20 4e 65 78 74 20 46 69 | N | Next Fi|
|00003f80| 6c 65 20 42 75 66 66 65 | 72 20 2d 20 64 69 73 70 |le Buffe|r - disp|
|00003f90| 6c 61 79 20 6e 65 78 74 | 20 62 75 66 66 65 72 20 |lay next| buffer |
|00003fa0| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 61 20 66 69 6c |containi|ng a fil|
|00003fb0| 65 5c 6e 20 20 20 20 20 | 20 20 4f 20 20 20 20 20 |e\n | O |
|00003fc0| 4f 63 63 75 72 20 2d 20 | 73 68 6f 77 20 66 6f 6c |Occur - |show fol|
|00003fd0| 6c 6f 77 69 6e 67 20 6c | 69 6e 65 73 20 63 6f 6e |lowing l|ines con|
|00003fe0| 74 61 69 6e 69 6e 67 20 | 52 45 47 45 58 50 5c 6e |taining |REGEXP\n|
|00003ff0| 5c 6e 20 20 20 20 20 20 | 20 51 20 20 20 20 20 51 |\n | Q Q|
|00004000| 75 69 74 20 2d 20 65 78 | 69 74 20 77 69 74 68 6f |uit - ex|it witho|
|00004010| 75 74 20 73 61 76 69 6e | 67 20 61 6e 79 74 68 69 |ut savin|g anythi|
|00004020| 6e 67 5c 6e 20 20 20 20 | 20 20 20 52 20 20 20 20 |ng\n | R |
|00004030| 20 54 6f 67 67 6c 65 20 | 72 65 63 74 61 6e 67 75 | Toggle |rectangu|
|00004040| 6c 61 72 20 6d 6f 64 65 | 20 66 6f 72 20 72 65 6d |lar mode| for rem|
|00004050| 6f 76 65 20 61 6e 64 20 | 69 6e 73 65 72 74 5c 6e |ove and |insert\n|
|00004060| 20 20 20 20 20 20 20 53 | 20 20 20 20 20 53 65 61 | S| Sea|
|00004070| 72 63 68 20 61 6e 64 20 | 73 75 62 73 74 69 74 75 |rch and |substitu|
|00004080| 74 65 20 2d 20 6c 69 6e | 65 20 6d 6f 64 65 20 52 |te - lin|e mode R|
|00004090| 45 50 4c 41 43 45 20 63 | 6f 6d 6d 61 6e 64 5c 6e |EPLACE c|ommand\n|
|000040a0| 5c 6e 20 20 20 20 20 20 | 20 55 20 20 20 20 20 55 |\n | U U|
|000040b0| 6e 64 6f 20 2d 20 75 6e | 64 6f 20 74 68 65 20 6c |ndo - un|do the l|
|000040c0| 61 73 74 20 65 64 69 74 | 5c 6e 20 20 20 20 20 20 |ast edit|\n |
|000040d0| 20 57 20 20 20 20 20 57 | 72 69 74 65 20 2d 20 73 | W W|rite - s|
|000040e0| 61 76 65 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 |ave curr|ent buff|
|000040f0| 65 72 5c 6e 20 20 20 20 | 20 20 20 58 20 20 20 20 |er\n | X |
|00004100| 20 45 78 69 74 20 2d 20 | 73 61 76 65 20 61 6c 6c | Exit - |save all|
|00004110| 20 6d 6f 64 69 66 69 65 | 64 20 62 75 66 66 65 72 | modifie|d buffer|
|00004120| 73 20 61 6e 64 20 65 78 | 69 74 5c 6e 5c 6e 5c 6e |s and ex|it\n\n\n|
|00004130| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |\n\n\n\n|\n\n\n\n|
|00004140| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |\n\n\n\n|\n\n\n\n|
|00004150| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |\n\n\n\n|\n\n\n\n|
|00004160| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 6e 5c 6e 5c 6e |\n\n\n\n|\n\n\n\n|
|00004170| 5c 6e 5c 6e 5c 6e 5c 6e | 5c 6e 5c 66 5c 6e 5c 6e |\n\n\n\n|\n\f\n\n|
|00004180| 20 20 20 2a 2a 2a 20 4e | 6f 20 6d 6f 72 65 20 68 | *** N|o more h|
|00004190| 65 6c 70 2c 20 75 73 65 | 20 50 20 74 6f 20 76 69 |elp, use| P to vi|
|000041a0| 65 77 20 70 72 65 76 69 | 6f 75 73 20 73 63 72 65 |ew previ|ous scre|
|000041b0| 65 6e 22 20 74 70 75 2d | 68 65 6c 70 2d 74 65 78 |en" tpu-|help-tex|
|000041c0| 74 20 62 6f 75 6e 64 70 | 20 74 70 75 2d 68 65 6c |t boundp| tpu-hel|
|000041d0| 70 2d 65 6e 74 65 72 20 | 66 6f 72 6d 61 74 20 22 |p-enter |format "|
|000041e0| 25 73 22 20 22 1b 4f 4d | 22 20 74 70 75 2d 68 65 |%s" ".OM|" tpu-he|
|000041f0| 6c 70 2d 72 65 74 75 72 | 6e 20 22 0d 22 20 74 70 |lp-retur|n "." tp|
|00004200| 75 2d 68 65 6c 70 2d 4e | 20 22 4e 22 20 74 70 75 |u-help-N| "N" tpu|
|00004210| 2d 68 65 6c 70 2d 6e 20 | 22 6e 22 20 74 70 75 2d |-help-n |"n" tpu-|
|00004220| 68 65 6c 70 2d 50 20 22 | 50 22 20 74 70 75 2d 68 |help-P "|P" tpu-h|
|00004230| 65 6c 70 2d 70 20 22 70 | 22 5d 20 33 29 0a 28 64 |elp-p "p|"] 3).(d|
|00004240| 65 66 61 6c 69 61 73 20 | 27 74 70 75 2d 68 65 6c |efalias |'tpu-hel|
|00004250| 70 20 23 5b 6e 69 6c 20 | 22 c0 8b 87 22 20 5b 28 |p #[nil |"..." [(|
|00004260| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 84 |(byte-co|de "..!.|
|00004270| 17 00 c2 c1 21 88 c3 c1 | 21 88 5c 66 63 88 0d 63 |....!...|!.\fc..c|
|00004280| 88 c6 16 07 c3 c1 21 88 | c8 20 88 c9 20 88 ca 79 |......!.|. .. ..y|
|00004290| 88 cb 20 88 cc 89 89 1e | 0d 1e 0e 1e 0f 0e 10 0e |.. .....|........|
|000042a0| 0e 9a 3f 85 d4 00 0e 0d | 83 46 00 d1 d2 21 16 0f |..?.....|.F...!..|
|000042b0| 82 4b 00 d1 d3 21 16 0f | d4 d5 0e 0f 5c 22 16 0e |.K...!..|....\"..|
|000042c0| 0e 16 0e 0e 9a 83 63 00 | cc 16 0d c8 20 88 82 30 |......c.|.... ..0|
|000042d0| 00 0e 17 0e 0e 9a 84 73 | 00 0e 18 0e 0e 9a 83 8c |.......s|........|
|000042e0| 00 0e 0d 83 80 00 cc d9 | da 8f 88 82 30 00 db 20 |........|....0.. |
|000042f0| 88 ca 79 88 cb 20 88 82 | 30 00 0e 1c 0e 0e 9a 84 |..y.. ..|0.......|
|00004300| 9c 00 0e 1d 0e 0e 9a 83 | b6 00 0e 0d 83 a9 00 cc |........|........|
|00004310| de df 8f 88 82 30 00 e0 | e1 21 88 ca 79 88 cb 20 |.....0..|.!..y.. |
|00004320| 88 82 30 00 0e 10 0e 0e | 9a 84 30 00 c6 16 0d e2 |..0.....|..0.....|
|00004330| 0e 0f 21 88 e3 0e 0f 21 | 84 30 00 e4 e5 21 88 82 |..!....!|.0...!..|
|00004340| 30 00 2b 87 22 20 5b 67 | 65 74 2d 62 75 66 66 65 |0.+." [g|et-buffe|
|00004350| 72 20 22 2a 54 50 55 2d | 65 64 74 20 48 65 6c 70 |r "*TPU-|edt Help|
|00004360| 2a 22 20 67 65 6e 65 72 | 61 74 65 2d 6e 65 77 2d |*" gener|ate-new-|
|00004370| 62 75 66 66 65 72 20 73 | 77 69 74 63 68 2d 74 6f |buffer s|witch-to|
|00004380| 2d 62 75 66 66 65 72 20 | 74 70 75 2d 68 65 6c 70 |-buffer |tpu-help|
|00004390| 2d 6b 65 79 70 61 64 2d | 6d 61 70 20 74 70 75 2d |-keypad-|map tpu-|
|000043a0| 68 65 6c 70 2d 74 65 78 | 74 20 74 20 62 75 66 66 |help-tex|t t buff|
|000043b0| 65 72 2d 72 65 61 64 2d | 6f 6e 6c 79 20 64 65 6c |er-read-|only del|
|000043c0| 65 74 65 2d 6f 74 68 65 | 72 2d 77 69 6e 64 6f 77 |ete-othe|r-window|
|000043d0| 73 20 74 70 75 2d 6d 6f | 76 65 2d 74 6f 2d 62 65 |s tpu-mo|ve-to-be|
|000043e0| 67 69 6e 6e 69 6e 67 20 | 31 20 74 70 75 2d 6c 69 |ginning |1 tpu-li|
|000043f0| 6e 65 2d 74 6f 2d 74 6f | 70 2d 6f 66 2d 77 69 6e |ne-to-to|p-of-win|
|00004400| 64 6f 77 20 6e 69 6c 20 | 73 70 6c 69 74 20 66 6b |dow nil |split fk|
|00004410| 65 79 20 6b 65 79 20 74 | 70 75 2d 68 65 6c 70 2d |ey key t|pu-help-|
|00004420| 72 65 74 75 72 6e 20 72 | 65 61 64 2d 6b 65 79 2d |return r|ead-key-|
|00004430| 73 65 71 75 65 6e 63 65 | 20 22 50 72 65 73 73 20 |sequence| "Press |
|00004440| 74 68 65 20 6b 65 79 20 | 79 6f 75 20 77 61 6e 74 |the key |you want|
|00004450| 20 68 65 6c 70 20 6f 6e | 20 28 52 45 54 3d 65 78 | help on| (RET=ex|
|00004460| 69 74 2c 20 45 4e 54 45 | 52 3d 72 65 64 69 73 70 |it, ENTE|R=redisp|
|00004470| 6c 61 79 2c 20 4e 3d 6e | 65 78 74 2c 20 50 3d 70 |lay, N=n|ext, P=p|
|00004480| 72 65 76 29 3a 20 22 20 | 22 50 72 65 73 73 20 74 |rev): " |"Press t|
|00004490| 68 65 20 6b 65 79 20 79 | 6f 75 20 77 61 6e 74 20 |he key y|ou want |
|000044a0| 68 65 6c 70 20 6f 6e 20 | 28 52 45 54 20 74 6f 20 |help on |(RET to |
|000044b0| 65 78 69 74 2c 20 4e 20 | 6e 65 78 74 20 73 63 72 |exit, N |next scr|
|000044c0| 65 65 6e 2c 20 50 20 70 | 72 65 76 20 73 63 72 65 |een, P p|rev scre|
|000044d0| 65 6e 29 3a 20 22 20 66 | 6f 72 6d 61 74 20 22 25 |en): " f|ormat "%|
|000044e0| 73 22 20 74 70 75 2d 68 | 65 6c 70 2d 65 6e 74 65 |s" tpu-h|elp-ente|
|000044f0| 72 20 74 70 75 2d 68 65 | 6c 70 2d 4e 20 74 70 75 |r tpu-he|lp-N tpu|
|00004500| 2d 68 65 6c 70 2d 6e 20 | 28 73 63 72 6f 6c 6c 2d |-help-n |(scroll-|
|00004510| 6f 74 68 65 72 2d 77 69 | 6e 64 6f 77 20 38 29 20 |other-wi|ndow 8) |
|00004520| 28 28 65 72 72 6f 72 29 | 29 20 66 6f 72 77 61 72 |((error)|) forwar|
|00004530| 64 2d 70 61 67 65 20 74 | 70 75 2d 68 65 6c 70 2d |d-page t|pu-help-|
|00004540| 50 20 74 70 75 2d 68 65 | 6c 70 2d 70 20 28 73 63 |P tpu-he|lp-p (sc|
|00004550| 72 6f 6c 6c 2d 6f 74 68 | 65 72 2d 77 69 6e 64 6f |roll-oth|er-windo|
|00004560| 77 20 2d 38 29 20 28 28 | 65 72 72 6f 72 29 29 20 |w -8) ((|error)) |
|00004570| 62 61 63 6b 77 61 72 64 | 2d 70 61 67 65 20 32 20 |backward|-page 2 |
|00004580| 64 65 73 63 72 69 62 65 | 2d 6b 65 79 20 6b 65 79 |describe|-key key|
|00004590| 2d 62 69 6e 64 69 6e 67 | 20 73 69 74 2d 66 6f 72 |-binding| sit-for|
|000045a0| 20 33 5d 20 33 29 29 5d | 20 31 20 22 5c 0a 44 69 | 3] 3))]| 1 "\.Di|
|000045b0| 73 70 6c 61 79 20 54 50 | 55 2d 65 64 74 20 68 65 |splay TP|U-edt he|
|000045c0| 6c 70 2e 22 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 |lp." nil|]).(defa|
|000045d0| 6c 69 61 73 20 27 74 70 | 75 2d 69 6e 73 65 72 74 |lias 'tp|u-insert|
|000045e0| 2d 65 73 63 61 70 65 20 | 23 5b 6e 69 6c 20 22 c0 |-escape |#[nil ".|
|000045f0| 63 87 22 20 5b 22 1b 22 | 5d 20 31 20 22 5c 0a 49 |c." ["."|] 1 "\.I|
|00004600| 6e 73 65 72 74 73 20 61 | 6e 20 65 73 63 61 70 65 |nserts a|n escape|
|00004610| 20 63 68 61 72 61 63 74 | 65 72 2c 20 61 6e 64 20 | charact|er, and |
|00004620| 73 6f 20 62 65 63 6f 6d | 65 73 20 74 68 65 20 65 |so becom|es the e|
|00004630| 73 63 61 70 65 2d 6b 65 | 79 20 61 6c 69 61 73 2e |scape-ke|y alias.|
|00004640| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|00004650| 73 20 27 74 70 75 2d 69 | 6e 73 65 72 74 2d 66 6f |s 'tpu-i|nsert-fo|
|00004660| 72 6d 66 65 65 64 20 23 | 5b 6e 69 6c 20 22 c0 63 |rmfeed #|[nil ".c|
|00004670| 87 22 20 5b 22 5c 66 22 | 5d 20 31 20 22 5c 0a 49 |." ["\f"|] 1 "\.I|
|00004680| 6e 73 65 72 74 73 20 61 | 20 66 6f 72 6d 66 65 65 |nserts a| formfee|
|00004690| 64 20 63 68 61 72 61 63 | 74 65 72 2e 22 20 6e 69 |d charac|ter." ni|
|000046a0| 6c 5d 29 0a 28 64 65 66 | 76 61 72 20 74 70 75 2d |l]).(def|var tpu-|
|000046b0| 73 61 76 65 64 2d 63 6f | 6e 74 72 6f 6c 2d 72 20 |saved-co|ntrol-r |
|000046c0| 6e 69 6c 20 22 5c 0a 53 | 61 76 65 64 20 76 61 6c |nil "\.S|aved val|
|000046d0| 75 65 20 6f 66 20 43 6f | 6e 74 72 6f 6c 2d 72 2e |ue of Co|ntrol-r.|
|000046e0| 22 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 70 |").(defa|lias 'tp|
|000046f0| 75 2d 65 6e 64 2d 64 65 | 66 69 6e 65 2d 6d 61 63 |u-end-de|fine-mac|
|00004700| 72 6f 2d 6b 65 79 20 23 | 5b 28 6b 65 79 29 20 22 |ro-key #|[(key) "|
|00004710| c0 c1 21 88 c2 0b 5c 66 | 5c 22 88 c2 c5 0e 06 5c |..!...\f|\".....\|
|00004720| 22 87 22 20 5b 65 6e 64 | 2d 6b 62 64 2d 6d 61 63 |"." [end|-kbd-mac|
|00004730| 72 6f 20 6e 69 6c 20 67 | 6c 6f 62 61 6c 2d 73 65 |ro nil g|lobal-se|
|00004740| 74 2d 6b 65 79 20 6b 65 | 79 20 6c 61 73 74 2d 6b |t-key ke|y last-k|
|00004750| 62 64 2d 6d 61 63 72 6f | 20 22 12 22 20 74 70 75 |bd-macro| "." tpu|
|00004760| 2d 73 61 76 65 64 2d 63 | 6f 6e 74 72 6f 6c 2d 72 |-saved-c|ontrol-r|
|00004770| 5d 20 33 20 22 5c 0a 45 | 6e 64 73 20 74 68 65 20 |] 3 "\.E|nds the |
|00004780| 63 75 72 72 65 6e 74 20 | 6d 61 63 72 6f 20 64 65 |current |macro de|
|00004790| 66 69 6e 69 74 69 6f 6e | 22 20 22 6b 50 72 65 73 |finition|" "kPres|
|000047a0| 73 20 74 68 65 20 6b 65 | 79 20 79 6f 75 20 77 61 |s the ke|y you wa|
|000047b0| 6e 74 20 74 6f 20 75 73 | 65 20 74 6f 20 64 6f 20 |nt to us|e to do |
|000047c0| 77 68 61 74 20 77 61 73 | 20 6a 75 73 74 20 6c 65 |what was| just le|
|000047d0| 61 72 6e 65 64 3a 20 22 | 5d 29 0a 28 64 65 66 61 |arned: "|]).(defa|
|000047e0| 6c 69 61 73 20 27 74 70 | 75 2d 64 65 66 69 6e 65 |lias 'tp|u-define|
|000047f0| 2d 6d 61 63 72 6f 2d 6b | 65 79 20 23 5b 6e 69 6c |-macro-k|ey #[nil|
|00004800| 20 22 c0 c1 21 12 c3 c1 | c4 5c 22 88 c5 c6 21 87 | "..!...|.\"...!.|
|00004810| 22 20 5b 67 6c 6f 62 61 | 6c 2d 6b 65 79 2d 62 69 |" [globa|l-key-bi|
|00004820| 6e 64 69 6e 67 20 22 12 | 22 20 74 70 75 2d 73 61 |nding ".|" tpu-sa|
|00004830| 76 65 64 2d 63 6f 6e 74 | 72 6f 6c 2d 72 20 67 6c |ved-cont|rol-r gl|
|00004840| 6f 62 61 6c 2d 73 65 74 | 2d 6b 65 79 20 74 70 75 |obal-set|-key tpu|
|00004850| 2d 65 6e 64 2d 64 65 66 | 69 6e 65 2d 6d 61 63 72 |-end-def|ine-macr|
|00004860| 6f 2d 6b 65 79 20 73 74 | 61 72 74 2d 6b 62 64 2d |o-key st|art-kbd-|
|00004870| 6d 61 63 72 6f 20 6e 69 | 6c 5d 20 33 20 22 5c 0a |macro ni|l] 3 "\.|
|00004880| 42 69 6e 64 20 61 20 73 | 65 74 20 6f 66 20 6b 65 |Bind a s|et of ke|
|00004890| 79 73 74 72 6f 6b 65 73 | 20 74 6f 20 61 20 73 69 |ystrokes| to a si|
|000048a0| 6e 67 6c 65 20 6b 65 79 | 2c 20 6f 72 20 6b 65 79 |ngle key|, or key|
|000048b0| 20 63 6f 6d 62 69 6e 61 | 74 69 6f 6e 2e 22 20 6e | combina|tion." n|
|000048c0| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|000048d0| 74 70 75 2d 6b 69 6c 6c | 2d 62 75 66 66 65 72 20 |tpu-kill|-buffer |
|000048e0| 23 5b 6e 69 6c 20 22 08 | 83 08 00 c1 c2 21 88 c3 |#[nil ".|.....!..|
|000048f0| 70 21 87 22 20 5b 74 70 | 75 2d 6b 69 6c 6c 2d 62 |p!." [tp|u-kill-b|
|00004900| 75 66 66 65 72 73 2d 73 | 69 6c 65 6e 74 6c 79 20 |uffers-s|ilently |
|00004910| 73 65 74 2d 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |set-buff|er-modif|
|00004920| 69 65 64 2d 70 20 6e 69 | 6c 20 6b 69 6c 6c 2d 62 |ied-p ni|l kill-b|
|00004930| 75 66 66 65 72 5d 20 32 | 20 22 5c 0a 4b 69 6c 6c |uffer] 2| "\.Kill|
|00004940| 73 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 62 75 |s the cu|rrent bu|
|00004950| 66 66 65 72 2e 20 20 49 | 66 20 74 70 75 2d 6b 69 |ffer. I|f tpu-ki|
|00004960| 6c 6c 2d 62 75 66 66 65 | 72 73 2d 73 69 6c 65 6e |ll-buffe|rs-silen|
|00004970| 74 6c 79 20 69 73 20 6e | 6f 6e 2d 6e 69 6c 2c 0a |tly is n|on-nil,.|
|00004980| 6b 69 6c 6c 73 20 6d 6f | 64 69 66 69 65 64 20 62 |kills mo|dified b|
|00004990| 75 66 66 65 72 73 20 77 | 69 74 68 6f 75 74 20 61 |uffers w|ithout a|
|000049a0| 73 6b 69 6e 67 2e 22 20 | 6e 69 6c 5d 29 0a 28 64 |sking." |nil]).(d|
|000049b0| 65 66 61 6c 69 61 73 20 | 27 74 70 75 2d 73 61 76 |efalias |'tpu-sav|
|000049c0| 65 2d 61 6c 6c 2d 62 75 | 66 66 65 72 73 2d 6b 69 |e-all-bu|ffers-ki|
|000049d0| 6c 6c 2d 65 6d 61 63 73 | 20 23 5b 6e 69 6c 20 22 |ll-emacs| #[nil "|
|000049e0| c0 19 c2 c0 21 29 87 22 | 20 5b 74 20 64 65 6c 65 |....!)."| [t dele|
|000049f0| 74 65 2d 6f 6c 64 2d 76 | 65 72 73 69 6f 6e 73 20 |te-old-v|ersions |
|00004a00| 73 61 76 65 2d 62 75 66 | 66 65 72 73 2d 6b 69 6c |save-buf|fers-kil|
|00004a10| 6c 2d 65 6d 61 63 73 5d | 20 32 20 22 5c 0a 53 61 |l-emacs]| 2 "\.Sa|
|00004a20| 76 65 20 61 6c 6c 20 62 | 75 66 66 65 72 73 20 61 |ve all b|uffers a|
|00004a30| 6e 64 20 65 78 69 74 20 | 65 6d 61 63 73 2e 22 20 |nd exit |emacs." |
|00004a40| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00004a50| 27 74 70 75 2d 77 72 69 | 74 65 2d 63 75 72 72 65 |'tpu-wri|te-curre|
|00004a60| 6e 74 2d 62 75 66 66 65 | 72 73 20 23 5b 6e 69 6c |nt-buffe|rs #[nil|
|00004a70| 20 22 c0 c1 21 87 22 20 | 5b 73 61 76 65 2d 73 6f | "..!." |[save-so|
|00004a80| 6d 65 2d 62 75 66 66 65 | 72 73 20 74 5d 20 32 20 |me-buffe|rs t] 2 |
|00004a90| 22 5c 0a 53 61 76 65 20 | 61 6c 6c 20 6d 6f 64 69 |"\.Save |all modi|
|00004aa0| 66 69 65 64 20 62 75 66 | 66 65 72 73 20 77 69 74 |fied buf|fers wit|
|00004ab0| 68 6f 75 74 20 65 78 69 | 74 69 6e 67 2e 22 20 6e |hout exi|ting." n|
|00004ac0| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00004ad0| 74 70 75 2d 6e 65 78 74 | 2d 62 75 66 66 65 72 20 |tpu-next|-buffer |
|00004ae0| 23 5b 6e 69 6c 20 22 c0 | c1 c2 20 21 40 21 87 22 |#[nil ".|.. !@!."|
|00004af0| 20 5b 73 77 69 74 63 68 | 2d 74 6f 2d 62 75 66 66 | [switch|-to-buff|
|00004b00| 65 72 20 72 65 76 65 72 | 73 65 20 62 75 66 66 65 |er rever|se buffe|
|00004b10| 72 2d 6c 69 73 74 5d 20 | 33 20 22 5c 0a 47 6f 20 |r-list] |3 "\.Go |
|00004b20| 74 6f 20 6e 65 78 74 20 | 62 75 66 66 65 72 20 69 |to next |buffer i|
|00004b30| 6e 20 72 69 6e 67 2e 22 | 20 6e 69 6c 5d 29 0a 28 |n ring."| nil]).(|
|00004b40| 64 65 66 61 6c 69 61 73 | 20 27 74 70 75 2d 6e 65 |defalias| 'tpu-ne|
|00004b50| 78 74 2d 66 69 6c 65 2d | 62 75 66 66 65 72 20 23 |xt-file-|buffer #|
|00004b60| 5b 6e 69 6c 20 22 c0 c1 | 20 21 1a c3 70 5c 6e 5c |[nil "..| !..p\n\|
|00004b70| 22 89 12 84 12 00 c4 c5 | 21 88 c6 c7 5c 6e 21 40 |".......|!...\n!@|
|00004b80| 21 29 87 22 20 5b 74 70 | 75 2d 6d 61 6b 65 2d 66 |!)." [tp|u-make-f|
|00004b90| 69 6c 65 2d 62 75 66 66 | 65 72 2d 6c 69 73 74 20 |ile-buff|er-list |
|00004ba0| 62 75 66 66 65 72 2d 6c | 69 73 74 20 6c 69 73 74 |buffer-l|ist list|
|00004bb0| 20 64 65 6c 71 20 65 72 | 72 6f 72 20 22 4e 6f 20 | delq er|ror "No |
|00004bc0| 6f 74 68 65 72 20 62 75 | 66 66 65 72 73 2e 22 20 |other bu|ffers." |
|00004bd0| 73 77 69 74 63 68 2d 74 | 6f 2d 62 75 66 66 65 72 |switch-t|o-buffer|
|00004be0| 20 72 65 76 65 72 73 65 | 5d 20 34 20 22 5c 0a 47 | reverse|] 4 "\.G|
|00004bf0| 6f 20 74 6f 20 6e 65 78 | 74 20 62 75 66 66 65 72 |o to nex|t buffer|
|00004c00| 20 69 6e 20 72 69 6e 67 | 20 74 68 61 74 20 69 73 | in ring| that is|
|00004c10| 20 76 69 73 69 74 69 6e | 67 20 61 20 66 69 6c 65 | visitin|g a file|
|00004c20| 20 6f 72 20 64 69 72 65 | 63 74 6f 72 79 2e 22 20 | or dire|ctory." |
|00004c30| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00004c40| 27 74 70 75 2d 6d 61 6b | 65 2d 66 69 6c 65 2d 62 |'tpu-mak|e-file-b|
|00004c50| 75 66 66 65 72 2d 6c 69 | 73 74 20 23 5b 28 62 75 |uffer-li|st #[(bu|
|00004c60| 66 66 65 72 2d 6c 69 73 | 74 29 20 22 c0 c1 c2 c3 |ffer-lis|t) "....|
|00004c70| 5c 66 5c 22 5c 22 87 22 | 20 5b 64 65 6c 71 20 6e |\f\"\"."| [delq n|
|00004c80| 69 6c 20 6d 61 70 63 61 | 72 20 23 5b 28 62 29 20 |il mapca|r #[(b) |
|00004c90| 22 c0 09 21 c2 48 c3 55 | 86 11 00 c0 09 21 c2 48 |"..!.H.U|.....!.H|
|00004ca0| c4 55 3f 85 16 00 09 87 | 22 20 5b 62 75 66 66 65 |.U?.....|" [buffe|
|00004cb0| 72 2d 6e 61 6d 65 20 62 | 20 30 20 33 32 20 34 32 |r-name b| 0 32 42|
|00004cc0| 5d 20 32 5d 20 62 75 66 | 66 65 72 2d 6c 69 73 74 |] 2] buf|fer-list|
|00004cd0| 5d 20 35 20 22 5c 0a 52 | 65 74 75 72 6e 73 20 6e |] 5 "\.R|eturns n|
|00004ce0| 61 6d 65 73 20 66 72 6f | 6d 20 42 55 46 46 45 52 |ames fro|m BUFFER|
|00004cf0| 2d 4c 49 53 54 20 65 78 | 63 6c 75 64 69 6e 67 20 |-LIST ex|cluding |
|00004d00| 74 68 6f 73 65 20 62 65 | 67 69 6e 6e 69 6e 67 20 |those be|ginning |
|00004d10| 77 69 74 68 20 61 20 73 | 70 61 63 65 20 6f 72 20 |with a s|pace or |
|00004d20| 73 74 61 72 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |star."])|.(defali|
|00004d30| 61 73 20 27 74 70 75 2d | 6e 65 78 74 2d 77 69 6e |as 'tpu-|next-win|
|00004d40| 64 6f 77 20 23 5b 6e 69 | 6c 20 22 c0 20 83 09 00 |dow #[ni|l ". ...|
|00004d50| c1 c2 21 87 c3 c4 21 87 | 22 20 5b 6f 6e 65 2d 77 |..!...!.|" [one-w|
|00004d60| 69 6e 64 6f 77 2d 70 20 | 6d 65 73 73 61 67 65 20 |indow-p |message |
|00004d70| 22 54 68 65 72 65 20 69 | 73 20 6f 6e 6c 79 20 6f |"There i|s only o|
|00004d80| 6e 65 20 77 69 6e 64 6f | 77 20 6f 6e 20 73 63 72 |ne windo|w on scr|
|00004d90| 65 65 6e 2e 22 20 6f 74 | 68 65 72 2d 77 69 6e 64 |een." ot|her-wind|
|00004da0| 6f 77 20 31 5d 20 32 20 | 22 5c 0a 4d 6f 76 65 20 |ow 1] 2 |"\.Move |
|00004db0| 74 6f 20 74 68 65 20 6e | 65 78 74 20 77 69 6e 64 |to the n|ext wind|
|00004dc0| 6f 77 2e 22 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 |ow." nil|]).(defa|
|00004dd0| 6c 69 61 73 20 27 74 70 | 75 2d 70 72 65 76 69 6f |lias 'tp|u-previo|
|00004de0| 75 73 2d 77 69 6e 64 6f | 77 20 23 5b 6e 69 6c 20 |us-windo|w #[nil |
|00004df0| 22 c0 20 83 09 00 c1 c2 | 21 87 c3 c4 20 21 87 22 |". .....|!... !."|
|00004e00| 20 5b 6f 6e 65 2d 77 69 | 6e 64 6f 77 2d 70 20 6d | [one-wi|ndow-p m|
|00004e10| 65 73 73 61 67 65 20 22 | 54 68 65 72 65 20 69 73 |essage "|There is|
|00004e20| 20 6f 6e 6c 79 20 6f 6e | 65 20 77 69 6e 64 6f 77 | only on|e window|
|00004e30| 20 6f 6e 20 73 63 72 65 | 65 6e 2e 22 20 73 65 6c | on scre|en." sel|
|00004e40| 65 63 74 2d 77 69 6e 64 | 6f 77 20 70 72 65 76 69 |ect-wind|ow previ|
|00004e50| 6f 75 73 2d 77 69 6e 64 | 6f 77 5d 20 32 20 22 5c |ous-wind|ow] 2 "\|
|00004e60| 0a 4d 6f 76 65 20 74 6f | 20 74 68 65 20 70 72 65 |.Move to| the pre|
|00004e70| 76 69 6f 75 73 20 77 69 | 6e 64 6f 77 2e 22 20 6e |vious wi|ndow." n|
|00004e80| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00004e90| 74 70 75 2d 74 6f 67 67 | 6c 65 2d 72 65 67 65 78 |tpu-togg|le-regex|
|00004ea0| 70 20 23 5b 6e 69 6c 20 | 22 08 3f 10 c1 20 88 74 |p #[nil |".?.. .t|
|00004eb0| 85 16 00 c2 c3 08 83 14 | 00 c4 82 15 00 c5 5c 22 |........|......\"|
|00004ec0| 87 22 20 5b 74 70 75 2d | 72 65 67 65 78 70 2d 70 |." [tpu-|regexp-p|
|00004ed0| 20 74 70 75 2d 73 65 74 | 2d 73 65 61 72 63 68 20 | tpu-set|-search |
|00004ee0| 6d 65 73 73 61 67 65 20 | 22 52 65 67 75 6c 61 72 |message |"Regular|
|00004ef0| 20 65 78 70 72 65 73 73 | 69 6f 6e 20 73 65 61 72 | express|ion sear|
|00004f00| 63 68 20 61 6e 64 20 73 | 75 62 73 74 69 74 75 74 |ch and s|ubstitut|
|00004f10| 65 20 25 73 61 62 6c 65 | 64 2e 22 20 22 65 6e 22 |e %sable|d." "en"|
|00004f20| 20 22 64 69 73 22 5d 20 | 33 20 22 5c 0a 53 77 69 | "dis"] |3 "\.Swi|
|00004f30| 74 63 68 65 73 20 69 6e | 20 61 6e 64 20 6f 75 74 |tches in| and out|
|00004f40| 20 6f 66 20 72 65 67 75 | 6c 61 72 20 65 78 70 72 | of regu|lar expr|
|00004f50| 65 73 73 69 6f 6e 20 73 | 65 61 72 63 68 20 61 6e |ession s|earch an|
|00004f60| 64 20 72 65 70 6c 61 63 | 65 20 6d 6f 64 65 2e 22 |d replac|e mode."|
|00004f70| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | nil]).(|defalias|
|00004f80| 20 27 74 70 75 2d 72 65 | 67 65 78 70 2d 70 72 6f | 'tpu-re|gexp-pro|
|00004f90| 6d 70 74 20 23 5b 28 70 | 72 6f 6d 70 74 29 20 22 |mpt #[(p|rompt) "|
|00004fa0| 08 85 05 00 c1 5c 6e 50 | 1b 5c 66 83 16 00 c5 0b |.....\nP|.\f.....|
|00004fb0| c6 89 89 c7 25 82 19 00 | c8 0b 21 29 87 22 20 5b |....%...|..!)." [|
|00004fc0| 74 70 75 2d 72 65 67 65 | 78 70 2d 70 20 22 52 45 |tpu-rege|xp-p "RE|
|00004fd0| 20 22 20 70 72 6f 6d 70 | 74 20 72 65 2d 70 72 6f | " promp|t re-pro|
|00004fe0| 6d 70 74 20 74 70 75 2d | 65 6d 61 63 73 31 39 2d |mpt tpu-|emacs19-|
|00004ff0| 70 20 72 65 61 64 2d 66 | 72 6f 6d 2d 6d 69 6e 69 |p read-f|rom-mini|
|00005000| 62 75 66 66 65 72 20 6e | 69 6c 20 74 70 75 2d 72 |buffer n|il tpu-r|
|00005010| 65 67 65 78 70 2d 70 72 | 6f 6d 70 74 2d 68 69 73 |egexp-pr|ompt-his|
|00005020| 74 20 72 65 61 64 2d 73 | 74 72 69 6e 67 5d 20 36 |t read-s|tring] 6|
|00005030| 20 22 5c 0a 52 65 61 64 | 20 61 20 73 74 72 69 6e | "\.Read| a strin|
|00005040| 67 2c 20 61 64 64 69 6e | 67 20 27 52 45 27 20 74 |g, addin|g 'RE' t|
|00005050| 6f 20 74 68 65 20 70 72 | 6f 6d 70 74 20 69 66 20 |o the pr|ompt if |
|00005060| 74 70 75 2d 72 65 67 65 | 78 70 2d 70 20 69 73 20 |tpu-rege|xp-p is |
|00005070| 73 65 74 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |set."]).|(defalia|
|00005080| 73 20 27 74 70 75 2d 73 | 65 61 72 63 68 20 23 5b |s 'tpu-s|earch #[|
|00005090| 6e 69 6c 20 22 c0 20 88 | c1 c2 21 87 22 20 5b 74 |nil ". .|..!." [t|
|000050a0| 70 75 2d 73 65 74 2d 73 | 65 61 72 63 68 20 74 70 |pu-set-s|earch tp|
|000050b0| 75 2d 73 65 61 72 63 68 | 2d 69 6e 74 65 72 6e 61 |u-search|-interna|
|000050c0| 6c 20 22 22 5d 20 32 20 | 22 5c 0a 53 65 61 72 63 |l ""] 2 |"\.Searc|
|000050d0| 68 20 66 6f 72 20 61 20 | 73 74 72 69 6e 67 20 6f |h for a |string o|
|000050e0| 72 20 72 65 67 75 6c 61 | 72 20 65 78 70 72 65 73 |r regula|r expres|
|000050f0| 73 69 6f 6e 2e 0a 54 68 | 65 20 73 65 61 72 63 68 |sion..Th|e search|
|00005100| 20 69 73 20 70 65 72 66 | 6f 72 6d 65 64 20 69 6e | is perf|ormed in|
|00005110| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 64 69 72 | the cur|rent dir|
|00005120| 65 63 74 69 6f 6e 2e 22 | 20 6e 69 6c 5d 29 0a 28 |ection."| nil]).(|
|00005130| 64 65 66 61 6c 69 61 73 | 20 27 74 70 75 2d 73 65 |defalias| 'tpu-se|
|00005140| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 23 5b 6e |arch-for|ward #[n|
|00005150| 69 6c 20 22 c0 11 c2 c0 | 21 88 c3 c4 21 87 22 20 |il "....|!...!." |
|00005160| 5b 74 20 74 70 75 2d 73 | 65 61 72 63 68 69 6e 67 |[t tpu-s|earching|
|00005170| 2d 66 6f 72 77 61 72 64 | 20 74 70 75 2d 73 65 74 |-forward| tpu-set|
|00005180| 2d 73 65 61 72 63 68 20 | 74 70 75 2d 73 65 61 72 |-search |tpu-sear|
|00005190| 63 68 2d 69 6e 74 65 72 | 6e 61 6c 20 22 22 5d 20 |ch-inter|nal ""] |
|000051a0| 32 20 22 5c 0a 53 65 61 | 72 63 68 20 66 6f 72 20 |2 "\.Sea|rch for |
|000051b0| 61 20 73 74 72 69 6e 67 | 20 6f 72 20 72 65 67 75 |a string| or regu|
|000051c0| 6c 61 72 20 65 78 70 72 | 65 73 73 69 6f 6e 2e 0a |lar expr|ession..|
|000051d0| 54 68 65 20 73 65 61 72 | 63 68 20 69 73 20 62 65 |The sear|ch is be|
|000051e0| 67 69 6e 73 20 69 6e 20 | 74 68 65 20 66 6f 72 77 |gins in |the forw|
|000051f0| 61 72 64 20 64 69 72 65 | 63 74 69 6f 6e 2e 22 20 |ard dire|ction." |
|00005200| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00005210| 27 74 70 75 2d 73 65 61 | 72 63 68 2d 72 65 76 65 |'tpu-sea|rch-reve|
|00005220| 72 73 65 20 23 5b 6e 69 | 6c 20 22 c0 11 c2 c3 21 |rse #[ni|l "....!|
|00005230| 88 c4 c5 21 87 22 20 5b | 6e 69 6c 20 74 70 75 2d |...!." [|nil tpu-|
|00005240| 73 65 61 72 63 68 69 6e | 67 2d 66 6f 72 77 61 72 |searchin|g-forwar|
|00005250| 64 20 74 70 75 2d 73 65 | 74 2d 73 65 61 72 63 68 |d tpu-se|t-search|
|00005260| 20 74 20 74 70 75 2d 73 | 65 61 72 63 68 2d 69 6e | t tpu-s|earch-in|
|00005270| 74 65 72 6e 61 6c 20 22 | 22 5d 20 32 20 22 5c 0a |ternal "|"] 2 "\.|
|00005280| 53 65 61 72 63 68 20 66 | 6f 72 20 61 20 73 74 72 |Search f|or a str|
|00005290| 69 6e 67 20 6f 72 20 72 | 65 67 75 6c 61 72 20 65 |ing or r|egular e|
|000052a0| 78 70 72 65 73 73 69 6f | 6e 2e 0a 54 68 65 20 73 |xpressio|n..The s|
|000052b0| 65 61 72 63 68 20 69 73 | 20 62 65 67 69 6e 73 20 |earch is| begins |
|000052c0| 69 6e 20 74 68 65 20 72 | 65 76 65 72 73 65 20 64 |in the r|everse d|
|000052d0| 69 72 65 63 74 69 6f 6e | 2e 22 20 6e 69 6c 5d 29 |irection|." nil])|
|000052e0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 70 75 2d |.(defali|as 'tpu-|
|000052f0| 73 65 61 72 63 68 2d 61 | 67 61 69 6e 20 23 5b 6e |search-a|gain #[n|
|00005300| 69 6c 20 22 c0 09 21 87 | 22 20 5b 74 70 75 2d 73 |il "..!.|" [tpu-s|
|00005310| 65 61 72 63 68 2d 69 6e | 74 65 72 6e 61 6c 20 74 |earch-in|ternal t|
|00005320| 70 75 2d 73 65 61 72 63 | 68 2d 6c 61 73 74 2d 73 |pu-searc|h-last-s|
|00005330| 74 72 69 6e 67 5d 20 32 | 20 22 5c 0a 53 65 61 72 |tring] 2| "\.Sear|
|00005340| 63 68 20 66 6f 72 20 74 | 68 65 20 73 61 6d 65 20 |ch for t|he same |
|00005350| 73 74 72 69 6e 67 20 6f | 72 20 72 65 67 75 6c 61 |string o|r regula|
|00005360| 72 20 65 78 70 72 65 73 | 73 69 6f 6e 20 61 73 20 |r expres|sion as |
|00005370| 6c 61 73 74 20 74 69 6d | 65 2e 0a 54 68 65 20 73 |last tim|e..The s|
|00005380| 65 61 72 63 68 20 69 73 | 20 70 65 72 66 6f 72 6d |earch is| perform|
|00005390| 65 64 20 69 6e 20 74 68 | 65 20 63 75 72 72 65 6e |ed in th|e curren|
|000053a0| 74 20 64 69 72 65 63 74 | 69 6f 6e 2e 22 20 6e 69 |t direct|ion." ni|
|000053b0| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |l]).(def|alias 't|
|000053c0| 70 75 2d 73 65 74 2d 73 | 65 61 72 63 68 20 23 5b |pu-set-s|earch #[|
|000053d0| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 29 20 |(&option|al arg) |
|000053e0| 22 08 84 5c 6e 00 09 85 | 09 00 c2 13 0b 83 5c 22 |"..\n...|......\"|
|000053f0| 00 5c 66 83 1a 00 c5 c6 | 4d 88 c7 c8 4d 87 c5 c9 |.\f.....|M...M...|
|00005400| 4d 88 c7 ca 4d 87 5c 66 | 83 2e 00 c5 c8 4d 88 c7 |M...M.\f|.....M..|
|00005410| c6 4d 87 c5 ca 4d 88 c7 | c9 4d 87 22 20 5b 61 72 |.M...M..|.M." [ar|
|00005420| 67 20 74 70 75 2d 61 64 | 76 61 6e 63 65 20 74 20 |g tpu-ad|vance t |
|00005430| 74 70 75 2d 73 65 61 72 | 63 68 69 6e 67 2d 66 6f |tpu-sear|ching-fo|
|00005440| 72 77 61 72 64 20 74 70 | 75 2d 72 65 67 65 78 70 |rward tp|u-regexp|
|00005450| 2d 70 20 74 70 75 2d 65 | 6d 61 63 73 2d 73 65 61 |-p tpu-e|macs-sea|
|00005460| 72 63 68 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |rch re-s|earch-fo|
|00005470| 72 77 61 72 64 20 74 70 | 75 2d 65 6d 61 63 73 2d |rward tp|u-emacs-|
|00005480| 72 65 76 2d 73 65 61 72 | 63 68 20 72 65 2d 73 65 |rev-sear|ch re-se|
|00005490| 61 72 63 68 2d 62 61 63 | 6b 77 61 72 64 20 73 65 |arch-bac|kward se|
|000054a0| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 73 65 61 |arch-for|ward sea|
|000054b0| 72 63 68 2d 62 61 63 6b | 77 61 72 64 5d 20 32 20 |rch-back|ward] 2 |
|000054c0| 22 5c 0a 53 65 74 20 74 | 68 65 20 73 65 61 72 63 |"\.Set t|he searc|
|000054d0| 68 20 66 75 6e 63 74 69 | 6f 6e 73 20 61 6e 64 20 |h functi|ons and |
|000054e0| 73 65 74 20 74 68 65 20 | 73 65 61 72 63 68 20 64 |set the |search d|
|000054f0| 69 72 65 63 74 69 6f 6e | 20 74 6f 20 74 68 65 20 |irection| to the |
|00005500| 63 75 72 72 65 6e 74 0a | 64 69 72 65 63 74 69 6f |current.|directio|
|00005510| 6e 2e 20 20 49 66 20 61 | 6e 20 61 72 67 75 6d 65 |n. If a|n argume|
|00005520| 6e 74 20 69 73 20 73 70 | 65 63 69 66 69 65 64 2c |nt is sp|ecified,|
|00005530| 20 64 6f 6e 27 74 20 73 | 65 74 20 74 68 65 20 73 | don't s|et the s|
|00005540| 65 61 72 63 68 20 64 69 | 72 65 63 74 69 6f 6e 2e |earch di|rection.|
|00005550| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |"]).(def|alias 't|
|00005560| 70 75 2d 73 65 61 72 63 | 68 2d 69 6e 74 65 72 6e |pu-searc|h-intern|
|00005570| 61 6c 20 23 5b 28 70 61 | 74 20 26 6f 70 74 69 6f |al #[(pa|t &optio|
|00005580| 6e 61 6c 20 71 75 69 65 | 74 29 20 22 08 c1 98 84 |nal quie|t) "....|
|00005590| 5c 6e 00 08 82 0d 00 c2 | c3 21 14 c5 20 88 c6 20 |\n......|.!.. .. |
|000055a0| 88 c7 5c 66 c8 c9 23 83 | 23 00 ca 20 88 cb 20 62 |..\f..#.|#.. .. b|
|000055b0| 87 c6 c9 21 88 c8 89 1e | 5c 66 1e 0d 8a 0e 0e 3f |...!....|\f.....?|
|000055c0| 1e 0e c6 20 88 cf 5c 66 | c8 c9 23 16 0d d0 94 16 |... ..\f|..#.....|
|000055d0| 5c 66 2a 0e 0d 83 65 00 | d1 d2 d3 0e 0e 83 53 00 |\f*...e.|......S.|
|000055e0| d4 82 54 00 d5 5c 22 21 | 85 79 00 0e 5c 66 62 88 |..T..\"!|.y..\fb.|
|000055f0| ca 20 88 d6 20 82 79 00 | 0e 17 3f 85 79 00 d8 d9 |. .. .y.|..?.y...|
|00005600| 0e 1a 83 76 00 db 82 77 | 00 c1 5c 66 23 2a 87 22 |...v...w|..\f#*."|
|00005610| 20 5b 70 61 74 20 22 22 | 20 74 70 75 2d 72 65 67 | [pat ""| tpu-reg|
|00005620| 65 78 70 2d 70 72 6f 6d | 70 74 20 22 53 65 61 72 |exp-prom|pt "Sear|
|00005630| 63 68 3a 20 22 20 74 70 | 75 2d 73 65 61 72 63 68 |ch: " tp|u-search|
|00005640| 2d 6c 61 73 74 2d 73 74 | 72 69 6e 67 20 74 70 75 |-last-st|ring tpu|
|00005650| 2d 75 6e 73 65 74 2d 6d | 61 74 63 68 20 74 70 75 |-unset-m|atch tpu|
|00005660| 2d 61 64 6a 75 73 74 2d | 73 65 61 72 63 68 20 74 |-adjust-|search t|
|00005670| 70 75 2d 65 6d 61 63 73 | 2d 73 65 61 72 63 68 20 |pu-emacs|-search |
|00005680| 6e 69 6c 20 74 20 74 70 | 75 2d 73 65 74 2d 6d 61 |nil t tp|u-set-ma|
|00005690| 74 63 68 20 74 70 75 2d | 6d 61 74 63 68 2d 62 65 |tch tpu-|match-be|
|000056a0| 67 69 6e 6e 69 6e 67 20 | 70 6f 73 20 66 6f 75 6e |ginning |pos foun|
|000056b0| 64 20 74 70 75 2d 73 65 | 61 72 63 68 69 6e 67 2d |d tpu-se|arching-|
|000056c0| 66 6f 72 77 61 72 64 20 | 74 70 75 2d 65 6d 61 63 |forward |tpu-emac|
|000056d0| 73 2d 72 65 76 2d 73 65 | 61 72 63 68 20 30 20 74 |s-rev-se|arch 0 t|
|000056e0| 70 75 2d 79 2d 6f 72 2d | 6e 2d 70 20 66 6f 72 6d |pu-y-or-|n-p form|
|000056f0| 61 74 20 22 46 6f 75 6e | 64 20 69 6e 20 25 73 20 |at "Foun|d in %s |
|00005700| 64 69 72 65 63 74 69 6f | 6e 2e 20 20 47 6f 20 74 |directio|n. Go t|
|00005710| 68 65 72 65 3f 20 22 20 | 22 72 65 76 65 72 73 65 |here? " |"reverse|
|00005720| 22 20 22 66 6f 72 77 61 | 72 64 22 20 74 70 75 2d |" "forwa|rd" tpu-|
|00005730| 74 6f 67 67 6c 65 2d 73 | 65 61 72 63 68 2d 64 69 |toggle-s|earch-di|
|00005740| 72 65 63 74 69 6f 6e 20 | 71 75 69 65 74 20 6d 65 |rection |quiet me|
|00005750| 73 73 61 67 65 20 22 25 | 73 53 65 61 72 63 68 20 |ssage "%|sSearch |
|00005760| 66 61 69 6c 65 64 3a 20 | 5c 22 25 73 5c 22 22 20 |failed: |\"%s\"" |
|00005770| 74 70 75 2d 72 65 67 65 | 78 70 2d 70 20 22 52 45 |tpu-rege|xp-p "RE|
|00005780| 20 22 5d 20 34 20 22 5c | 0a 53 65 61 72 63 68 20 | "] 4 "\|.Search |
|00005790| 66 6f 72 20 61 20 73 74 | 72 69 6e 67 20 6f 72 20 |for a st|ring or |
|000057a0| 72 65 67 75 6c 61 72 20 | 65 78 70 72 65 73 73 69 |regular |expressi|
|000057b0| 6f 6e 2e 22 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |on."]).(|byte-cod|
|000057c0| 65 20 22 c0 c1 4b 4d 87 | 22 20 5b 74 70 75 2d 73 |e "..KM.|" [tpu-s|
|000057d0| 65 61 72 63 68 2d 69 6e | 74 65 72 6e 61 6c 2d 63 |earch-in|ternal-c|
|000057e0| 6f 72 65 20 74 70 75 2d | 73 65 61 72 63 68 2d 69 |ore tpu-|search-i|
|000057f0| 6e 74 65 72 6e 61 6c 5d | 20 32 29 0a 28 64 65 66 |nternal]| 2).(def|
|00005800| 61 6c 69 61 73 20 27 74 | 70 75 2d 61 64 6a 75 73 |alias 't|pu-adjus|
|00005810| 74 2d 73 65 61 72 63 68 | 20 23 5b 28 26 6f 70 74 |t-search| #[(&opt|
|00005820| 69 6f 6e 61 6c 20 61 72 | 67 29 20 22 08 85 17 00 |ional ar|g) "....|
|00005830| 09 83 10 00 6f 3f 85 17 | 00 c2 75 87 6d 3f 85 17 |....o?..|..u.m?..|
|00005840| 00 c3 75 87 22 20 5b 74 | 70 75 2d 73 65 61 72 63 |..u." [t|pu-searc|
|00005850| 68 69 6e 67 2d 66 6f 72 | 77 61 72 64 20 61 72 67 |hing-for|ward arg|
|00005860| 20 2d 31 20 31 5d 20 31 | 20 22 5c 0a 46 6f 72 20 | -1 1] 1| "\.For |
|00005870| 66 6f 72 77 61 72 64 20 | 73 65 61 72 63 68 65 73 |forward |searches|
|00005880| 2c 20 6d 6f 76 65 20 66 | 6f 72 77 61 72 64 20 61 |, move f|orward a|
|00005890| 20 63 68 61 72 61 63 74 | 65 72 20 62 65 66 6f 72 | charact|er befor|
|000058a0| 65 20 73 65 61 72 63 68 | 69 6e 67 2c 0a 61 6e 64 |e search|ing,.and|
|000058b0| 20 62 61 63 6b 77 61 72 | 64 20 61 20 63 68 61 72 | backwar|d a char|
|000058c0| 61 63 74 65 72 20 61 66 | 74 65 72 20 61 20 66 61 |acter af|ter a fa|
|000058d0| 69 6c 65 64 20 73 65 61 | 72 63 68 2e 20 20 41 72 |iled sea|rch. Ar|
|000058e0| 67 20 6d 65 61 6e 73 20 | 65 6e 64 20 6f 66 20 73 |g means |end of s|
|000058f0| 65 61 72 63 68 2e 22 5d | 29 0a 28 64 65 66 61 6c |earch."]|).(defal|
|00005900| 69 61 73 20 27 74 70 75 | 2d 74 6f 67 67 6c 65 2d |ias 'tpu|-toggle-|
|00005910| 73 65 61 72 63 68 2d 64 | 69 72 65 63 74 69 6f 6e |search-d|irection|
|00005920| 20 23 5b 6e 69 6c 20 22 | 08 3f 10 c1 c2 21 88 74 | #[nil "|.?...!.t|
|00005930| 85 17 00 c3 c4 08 83 15 | 00 c5 82 16 00 c6 5c 22 |........|......\"|
|00005940| 87 22 20 5b 74 70 75 2d | 73 65 61 72 63 68 69 6e |." [tpu-|searchin|
|00005950| 67 2d 66 6f 72 77 61 72 | 64 20 74 70 75 2d 73 65 |g-forwar|d tpu-se|
|00005960| 74 2d 73 65 61 72 63 68 | 20 74 20 6d 65 73 73 61 |t-search| t messa|
|00005970| 67 65 20 22 53 65 61 72 | 63 68 69 6e 67 20 25 73 |ge "Sear|ching %s|
|00005980| 77 61 72 64 2e 22 20 22 | 66 6f 72 22 20 22 62 61 |ward." "|for" "ba|
|00005990| 63 6b 22 5d 20 33 20 22 | 5c 0a 54 6f 67 67 6c 65 |ck"] 3 "|\.Toggle|
|000059a0| 20 74 68 65 20 54 50 55 | 2d 65 64 74 20 73 65 61 | the TPU|-edt sea|
|000059b0| 72 63 68 20 64 69 72 65 | 63 74 69 6f 6e 2e 0a 55 |rch dire|ction..U|
|000059c0| 73 65 64 20 66 6f 72 20 | 72 65 76 65 72 73 69 6e |sed for |reversin|
|000059d0| 67 20 61 20 73 65 61 72 | 63 68 20 69 6e 20 70 72 |g a sear|ch in pr|
|000059e0| 6f 67 72 65 73 73 2e 22 | 20 6e 69 6c 5d 29 0a 28 |ogress."| nil]).(|
|000059f0| 64 65 66 61 6c 69 61 73 | 20 27 74 70 75 2d 73 65 |defalias| 'tpu-se|
|00005a00| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 2d 65 78 69 |arch-for|ward-exi|
|00005a10| 74 20 23 5b 6e 69 6c 20 | 22 c0 11 c2 c0 21 88 c3 |t #[nil |"....!..|
|00005a20| 20 87 22 20 5b 74 20 74 | 70 75 2d 73 65 61 72 63 | ." [t t|pu-searc|
|00005a30| 68 69 6e 67 2d 66 6f 72 | 77 61 72 64 20 74 70 75 |hing-for|ward tpu|
|00005a40| 2d 73 65 74 2d 73 65 61 | 72 63 68 20 65 78 69 74 |-set-sea|rch exit|
|00005a50| 2d 6d 69 6e 69 62 75 66 | 66 65 72 5d 20 32 20 22 |-minibuf|fer] 2 "|
|00005a60| 5c 0a 53 65 74 20 73 65 | 61 72 63 68 20 64 69 72 |\.Set se|arch dir|
|00005a70| 65 63 74 69 6f 6e 20 66 | 6f 72 77 61 72 64 20 61 |ection f|orward a|
|00005a80| 6e 64 20 65 78 69 74 20 | 6d 69 6e 69 62 75 66 66 |nd exit |minibuff|
|00005a90| 65 72 2e 22 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 |er." nil|]).(defa|
|00005aa0| 6c 69 61 73 20 27 74 70 | 75 2d 73 65 61 72 63 68 |lias 'tp|u-search|
|00005ab0| 2d 62 61 63 6b 77 61 72 | 64 2d 65 78 69 74 20 23 |-backwar|d-exit #|
|00005ac0| 5b 6e 69 6c 20 22 c0 11 | c2 c3 21 88 c4 20 87 22 |[nil "..|..!.. ."|
|00005ad0| 20 5b 6e 69 6c 20 74 70 | 75 2d 73 65 61 72 63 68 | [nil tp|u-search|
|00005ae0| 69 6e 67 2d 66 6f 72 77 | 61 72 64 20 74 70 75 2d |ing-forw|ard tpu-|
|00005af0| 73 65 74 2d 73 65 61 72 | 63 68 20 74 20 65 78 69 |set-sear|ch t exi|
|00005b00| 74 2d 6d 69 6e 69 62 75 | 66 66 65 72 5d 20 32 20 |t-minibu|ffer] 2 |
|00005b10| 22 5c 0a 53 65 74 20 73 | 65 61 72 63 68 20 64 69 |"\.Set s|earch di|
|00005b20| 72 65 63 74 69 6f 6e 20 | 62 61 63 6b 77 61 72 64 |rection |backward|
|00005b30| 20 61 6e 64 20 65 78 69 | 74 20 6d 69 6e 69 62 75 | and exi|t minibu|
|00005b40| 66 66 65 72 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |ffer." n|il]).(de|
|00005b50| 66 61 6c 69 61 73 20 27 | 74 70 75 2d 73 65 6c 65 |falias '|tpu-sele|
|00005b60| 63 74 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |ct #[(&o|ptional |
|00005b70| 71 75 69 65 74 29 20 22 | c0 20 83 09 00 c1 5c 6e |quiet) "|. ....\n|
|00005b80| 21 87 c3 60 21 88 c4 20 | 88 5c 6e 3f 85 18 00 c5 |!..`!.. |.\n?....|
|00005b90| c6 21 87 22 20 5b 74 70 | 75 2d 6d 61 72 6b 20 74 |.!." [tp|u-mark t|
|00005ba0| 70 75 2d 75 6e 73 65 6c | 65 63 74 20 71 75 69 65 |pu-unsel|ect quie|
|00005bb0| 74 20 74 70 75 2d 73 65 | 74 2d 6d 61 72 6b 20 74 |t tpu-se|t-mark t|
|00005bc0| 70 75 2d 75 70 64 61 74 | 65 2d 6d 6f 64 65 2d 6c |pu-updat|e-mode-l|
|00005bd0| 69 6e 65 20 6d 65 73 73 | 61 67 65 20 22 4d 6f 76 |ine mess|age "Mov|
|00005be0| 65 20 74 68 65 20 74 65 | 78 74 20 63 75 72 73 6f |e the te|xt curso|
|00005bf0| 72 20 74 6f 20 73 65 6c | 65 63 74 20 74 65 78 74 |r to sel|ect text|
|00005c00| 2e 22 5d 20 32 20 22 5c | 0a 53 65 74 73 20 74 68 |."] 2 "\|.Sets th|
|00005c10| 65 20 6d 61 72 6b 20 74 | 6f 20 64 65 66 69 6e 65 |e mark t|o define|
|00005c20| 20 6f 6e 65 20 65 6e 64 | 20 6f 66 20 61 20 72 65 | one end| of a re|
|00005c30| 67 69 6f 6e 2e 22 20 22 | 50 22 5d 29 0a 28 64 65 |gion." "|P"]).(de|
|00005c40| 66 61 6c 69 61 73 20 27 | 74 70 75 2d 75 6e 73 65 |falias '|tpu-unse|
|00005c50| 6c 65 63 74 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |lect #[(|&optiona|
|00005c60| 6c 20 71 75 69 65 74 29 | 20 22 c0 11 c2 c0 21 88 |l quiet)| "....!.|
|00005c70| c3 20 88 5c 66 3f 85 11 | 00 c5 c6 21 87 22 20 5b |. .\f?..|...!." [|
|00005c80| 6e 69 6c 20 6d 61 72 6b | 2d 72 69 6e 67 20 74 70 |nil mark|-ring tp|
|00005c90| 75 2d 73 65 74 2d 6d 61 | 72 6b 20 74 70 75 2d 75 |u-set-ma|rk tpu-u|
|00005ca0| 70 64 61 74 65 2d 6d 6f | 64 65 2d 6c 69 6e 65 20 |pdate-mo|de-line |
|00005cb0| 71 75 69 65 74 20 6d 65 | 73 73 61 67 65 20 22 53 |quiet me|ssage "S|
|00005cc0| 65 6c 65 63 74 69 6f 6e | 20 63 61 6e 63 65 6c 65 |election| cancele|
|00005cd0| 64 2e 22 5d 20 32 20 22 | 5c 0a 52 65 6d 6f 76 65 |d."] 2 "|\.Remove|
|00005ce0| 73 20 74 68 65 20 6d 61 | 72 6b 20 74 6f 20 75 6e |s the ma|rk to un|
|00005cf0| 73 65 6c 65 63 74 20 74 | 68 65 20 63 75 72 72 65 |select t|he curre|
|00005d00| 6e 74 20 72 65 67 69 6f | 6e 2e 22 20 22 50 22 5d |nt regio|n." "P"]|
|00005d10| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 70 75 |).(defal|ias 'tpu|
|00005d20| 2d 74 6f 67 67 6c 65 2d | 72 65 63 74 61 6e 67 6c |-toggle-|rectangl|
|00005d30| 65 20 23 5b 6e 69 6c 20 | 22 08 3f 89 10 83 0b 00 |e #[nil |".?.....|
|00005d40| c1 82 5c 66 00 c2 13 c4 | 20 88 74 85 20 00 c5 c6 |..\f....| .t. ...|
|00005d50| 08 83 1e 00 c7 82 1f 00 | c8 5c 22 87 22 20 5b 74 |........|.\"." [t|
|00005d60| 70 75 2d 72 65 63 74 61 | 6e 67 75 6c 61 72 2d 70 |pu-recta|ngular-p|
|00005d70| 20 22 20 52 65 63 74 22 | 20 22 22 20 74 70 75 2d | " Rect"| "" tpu-|
|00005d80| 72 65 63 74 61 6e 67 6c | 65 2d 73 74 72 69 6e 67 |rectangl|e-string|
|00005d90| 20 74 70 75 2d 75 70 64 | 61 74 65 2d 6d 6f 64 65 | tpu-upd|ate-mode|
|00005da0| 2d 6c 69 6e 65 20 6d 65 | 73 73 61 67 65 20 22 52 |-line me|ssage "R|
|00005db0| 65 63 74 61 6e 67 75 6c | 61 72 20 63 75 74 20 61 |ectangul|ar cut a|
|00005dc0| 6e 64 20 70 61 73 74 65 | 20 25 73 61 62 6c 65 64 |nd paste| %sabled|
|00005dd0| 2e 22 20 22 65 6e 22 20 | 22 64 69 73 22 5d 20 34 |." "en" |"dis"] 4|
|00005de0| 20 22 5c 0a 54 6f 67 67 | 6c 65 20 72 65 63 74 61 | "\.Togg|le recta|
|00005df0| 6e 67 75 6c 61 72 20 6d | 6f 64 65 20 66 6f 72 20 |ngular m|ode for |
|00005e00| 72 65 6d 6f 76 65 20 61 | 6e 64 20 69 6e 73 65 72 |remove a|nd inser|
|00005e10| 74 2e 22 20 6e 69 6c 5d | 29 0a 28 64 65 66 61 6c |t." nil]|).(defal|
|00005e20| 69 61 73 20 27 74 70 75 | 2d 61 72 72 61 6e 67 65 |ias 'tpu|-arrange|
|00005e30| 2d 72 65 63 74 61 6e 67 | 6c 65 20 23 5b 6e 69 6c |-rectang|le #[nil|
|00005e40| 20 22 69 c0 20 88 69 19 | 1a 60 c3 20 56 83 26 00 | "i. .i.|.`. V.&.|
|00005e50| 09 5c 6e 56 83 19 00 c0 | 20 82 39 00 c4 5c 6e 21 |.\nV....| .9..\n!|
|00005e60| 88 c0 20 88 c4 09 21 82 | 39 00 09 5c 6e 56 85 39 |.. ...!.|9..\nV.9|
|00005e70| 00 c4 5c 6e 21 88 c0 20 | 88 c4 09 21 88 c0 20 2a |..\n!.. |...!.. *|
|00005e80| 87 22 20 5b 65 78 63 68 | 61 6e 67 65 2d 70 6f 69 |." [exch|ange-poi|
|00005e90| 6e 74 2d 61 6e 64 2d 6d | 61 72 6b 20 70 63 20 6d |nt-and-m|ark pc m|
|00005ea0| 63 20 74 70 75 2d 6d 61 | 72 6b 20 6d 6f 76 65 2d |c tpu-ma|rk move-|
|00005eb0| 74 6f 2d 63 6f 6c 75 6d | 6e 2d 66 6f 72 63 65 5d |to-colum|n-force]|
|00005ec0| 20 32 20 22 5c 0a 41 64 | 6a 75 73 74 20 70 6f 69 | 2 "\.Ad|just poi|
|00005ed0| 6e 74 20 61 6e 64 20 6d | 61 72 6b 20 74 6f 20 6d |nt and m|ark to m|
|00005ee0| 61 72 6b 20 75 70 70 65 | 72 20 6c 65 66 74 20 61 |ark uppe|r left a|
|00005ef0| 6e 64 20 6c 6f 77 65 72 | 20 72 69 67 68 74 0a 63 |nd lower| right.c|
|00005f00| 6f 72 6e 65 72 73 20 6f | 66 20 61 20 72 65 63 74 |orners o|f a rect|
|00005f10| 61 6e 67 6c 65 2e 22 5d | 29 0a 28 64 65 66 61 6c |angle."]|).(defal|
|00005f20| 69 61 73 20 27 74 70 75 | 2d 63 75 74 2d 74 65 78 |ias 'tpu|-cut-tex|
|00005f30| 74 20 23 5b 6e 69 6c 20 | 22 c0 20 83 27 00 09 83 |t #[nil |". .'...|
|00005f40| 18 00 c2 20 88 c3 60 c0 | 20 5c 66 3f 23 88 c5 c6 |... ..`.| \f?#...|
|00005f50| 21 87 c0 20 60 7b 16 07 | c0 20 60 7c 88 c5 c6 21 |!.. `{..|. `|...!|
|00005f60| 87 c8 20 83 44 00 c9 20 | ca 20 1e 0b 89 1e 5c 66 |.. .D.. |. ....\f|
|00005f70| 0e 0b 7b 16 07 0e 5c 66 | 0e 0b 7c 88 cd 20 2a 87 |..{...\f|..|.. *.|
|00005f80| ce cf 21 87 22 20 5b 74 | 70 75 2d 6d 61 72 6b 20 |..!." [t|pu-mark |
|00005f90| 74 70 75 2d 72 65 63 74 | 61 6e 67 75 6c 61 72 2d |tpu-rect|angular-|
|00005fa0| 70 20 74 70 75 2d 61 72 | 72 61 6e 67 65 2d 72 65 |p tpu-ar|range-re|
|00005fb0| 63 74 61 6e 67 6c 65 20 | 70 69 63 74 75 72 65 2d |ctangle |picture-|
|00005fc0| 63 6c 65 61 72 2d 72 65 | 63 74 61 6e 67 6c 65 20 |clear-re|ctangle |
|00005fd0| 6f 76 65 72 77 72 69 74 | 65 2d 6d 6f 64 65 20 74 |overwrit|e-mode t|
|00005fe0| 70 75 2d 75 6e 73 65 6c | 65 63 74 20 74 20 74 70 |pu-unsel|ect t tp|
|00005ff0| 75 2d 6c 61 73 74 2d 64 | 65 6c 65 74 65 64 2d 72 |u-last-d|eleted-r|
|00006000| 65 67 69 6f 6e 20 74 70 | 75 2d 63 68 65 63 6b 2d |egion tp|u-check-|
|00006010| 6d 61 74 63 68 20 74 70 | 75 2d 6d 61 74 63 68 2d |match tp|u-match-|
|00006020| 62 65 67 69 6e 6e 69 6e | 67 20 74 70 75 2d 6d 61 |beginnin|g tpu-ma|
|00006030| 74 63 68 2d 65 6e 64 20 | 65 6e 64 20 62 65 67 20 |tch-end |end beg |
|00006040| 74 70 75 2d 75 6e 73 65 | 74 2d 6d 61 74 63 68 20 |tpu-unse|t-match |
|00006050| 65 72 72 6f 72 20 22 4e | 6f 20 73 65 6c 65 63 74 |error "N|o select|
|00006060| 69 6f 6e 20 61 63 74 69 | 76 65 2e 22 5d 20 35 20 |ion acti|ve."] 5 |
|00006070| 22 5c 0a 44 65 6c 65 74 | 65 20 74 68 65 20 73 65 |"\.Delet|e the se|
|00006080| 6c 65 63 74 65 64 20 72 | 65 67 69 6f 6e 2e 0a 54 |lected r|egion..T|
|00006090| 68 65 20 74 65 78 74 20 | 69 73 20 73 61 76 65 64 |he text |is saved|
|000060a0| 20 66 6f 72 20 74 68 65 | 20 74 70 75 2d 70 61 73 | for the| tpu-pas|
|000060b0| 74 65 20 63 6f 6d 6d 61 | 6e 64 2e 22 20 6e 69 6c |te comma|nd." nil|
|000060c0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 70 |]).(defa|lias 'tp|
|000060d0| 75 2d 73 74 6f 72 65 2d | 74 65 78 74 20 23 5b 6e |u-store-|text #[n|
|000060e0| 69 6c 20 22 c0 20 83 5c | 22 00 09 83 18 00 8a c2 |il ". .\|".......|
|000060f0| 20 88 c3 60 c0 20 5c 22 | 14 29 c5 c6 21 87 c0 20 | ..`. \"|.)..!.. |
|00006100| 60 7b 16 07 c5 c6 21 87 | c8 20 83 31 00 c9 20 ca |`{....!.|. .1.. .|
|00006110| 20 7b 16 07 cb 20 87 cc | cd 21 87 22 20 5b 74 70 | {... ..|.!." [tp|
|00006120| 75 2d 6d 61 72 6b 20 74 | 70 75 2d 72 65 63 74 61 |u-mark t|pu-recta|
|00006130| 6e 67 75 6c 61 72 2d 70 | 20 74 70 75 2d 61 72 72 |ngular-p| tpu-arr|
|00006140| 61 6e 67 65 2d 72 65 63 | 74 61 6e 67 6c 65 20 65 |ange-rec|tangle e|
|00006150| 78 74 72 61 63 74 2d 72 | 65 63 74 61 6e 67 6c 65 |xtract-r|ectangle|
|00006160| 20 70 69 63 74 75 72 65 | 2d 6b 69 6c 6c 65 64 2d | picture|-killed-|
|00006170| 72 65 63 74 61 6e 67 6c | 65 20 74 70 75 2d 75 6e |rectangl|e tpu-un|
|00006180| 73 65 6c 65 63 74 20 74 | 20 74 70 75 2d 6c 61 73 |select t| tpu-las|
|00006190| 74 2d 64 65 6c 65 74 65 | 64 2d 72 65 67 69 6f 6e |t-delete|d-region|
|000061a0| 20 74 70 75 2d 63 68 65 | 63 6b 2d 6d 61 74 63 68 | tpu-che|ck-match|
|000061b0| 20 74 70 75 2d 6d 61 74 | 63 68 2d 62 65 67 69 6e | tpu-mat|ch-begin|
|000061c0| 6e 69 6e 67 20 74 70 75 | 2d 6d 61 74 63 68 2d 65 |ning tpu|-match-e|
|000061d0| 6e 64 20 74 70 75 2d 75 | 6e 73 65 74 2d 6d 61 74 |nd tpu-u|nset-mat|
|000061e0| 63 68 20 65 72 72 6f 72 | 20 22 4e 6f 20 73 65 6c |ch error| "No sel|
|000061f0| 65 63 74 69 6f 6e 20 61 | 63 74 69 76 65 2e 22 5d |ection a|ctive."]|
|00006200| 20 33 20 22 5c 0a 43 6f | 70 79 20 74 68 65 20 73 | 3 "\.Co|py the s|
|00006210| 65 6c 65 63 74 65 64 20 | 72 65 67 69 6f 6e 20 74 |elected |region t|
|00006220| 6f 20 74 68 65 20 63 75 | 74 20 62 75 66 66 65 72 |o the cu|t buffer|
|00006230| 20 77 69 74 68 6f 75 74 | 20 64 65 6c 65 74 69 6e | without| deletin|
|00006240| 67 20 69 74 2e 0a 54 68 | 65 20 74 65 78 74 20 69 |g it..Th|e text i|
|00006250| 73 20 73 61 76 65 64 20 | 66 6f 72 20 74 68 65 20 |s saved |for the |
|00006260| 74 70 75 2d 70 61 73 74 | 65 20 63 6f 6d 6d 61 6e |tpu-past|e comman|
|00006270| 64 2e 22 20 6e 69 6c 5d | 29 0a 28 64 65 66 61 6c |d." nil]|).(defal|
|00006280| 69 61 73 20 27 74 70 75 | 2d 63 75 74 20 23 5b 28 |ias 'tpu|-cut #[(|
|00006290| 61 72 67 29 20 22 08 83 | 07 00 c1 20 87 c2 20 87 |arg) "..|... .. .|
|000062a0| 22 20 5b 61 72 67 20 74 | 70 75 2d 73 74 6f 72 65 |" [arg t|pu-store|
|000062b0| 2d 74 65 78 74 20 74 70 | 75 2d 63 75 74 2d 74 65 |-text tp|u-cut-te|
|000062c0| 78 74 5d 20 31 20 22 5c | 0a 43 6f 70 79 20 73 65 |xt] 1 "\|.Copy se|
|000062d0| 6c 65 63 74 65 64 20 72 | 65 67 69 6f 6e 20 74 6f |lected r|egion to|
|000062e0| 20 74 68 65 20 63 75 74 | 20 62 75 66 66 65 72 2e | the cut| buffer.|
|000062f0| 20 20 49 6e 20 74 68 65 | 20 61 62 73 65 6e 63 65 | In the| absence|
|00006300| 20 6f 66 20 61 6e 0a 61 | 72 67 75 6d 65 6e 74 2c | of an.a|rgument,|
|00006310| 20 64 65 6c 65 74 65 20 | 74 68 65 20 73 65 6c 65 | delete |the sele|
|00006320| 63 74 65 64 20 72 65 67 | 69 6f 6e 20 74 6f 6f 2e |cted reg|ion too.|
|00006330| 22 20 22 50 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |" "P"]).|(defalia|
|00006340| 73 20 27 74 70 75 2d 61 | 70 70 65 6e 64 2d 72 65 |s 'tpu-a|ppend-re|
|00006350| 67 69 6f 6e 20 23 5b 28 | 61 72 67 29 20 22 c0 20 |gion #[(|arg) ". |
|00006360| 83 1f 00 c1 20 c2 20 1b | 1c 0d 5c 66 0b 7b 50 15 |.... . .|..\f.{P.|
|00006370| 0e 06 84 1a 00 5c 66 0b | 7c 88 c7 c8 21 2a 87 c9 |.....\f.||...!*..|
|00006380| 20 83 3d 00 ca 20 cb 20 | 1b 1c 0d 5c 66 0b 7b 50 | .=.. . |...\f.{P|
|00006390| 15 0e 06 84 39 00 5c 66 | 0b 7c 88 cc 20 2a 87 cd |....9.\f|.|.. *..|
|000063a0| ce 21 87 22 20 5b 74 70 | 75 2d 6d 61 72 6b 20 72 |.!." [tp|u-mark r|
|000063b0| 65 67 69 6f 6e 2d 62 65 | 67 69 6e 6e 69 6e 67 20 |egion-be|ginning |
|000063c0| 72 65 67 69 6f 6e 2d 65 | 6e 64 20 65 6e 64 20 62 |region-e|nd end b|
|000063d0| 65 67 20 74 70 75 2d 6c | 61 73 74 2d 64 65 6c 65 |eg tpu-l|ast-dele|
|000063e0| 74 65 64 2d 72 65 67 69 | 6f 6e 20 61 72 67 20 74 |ted-regi|on arg t|
|000063f0| 70 75 2d 75 6e 73 65 6c | 65 63 74 20 74 20 74 70 |pu-unsel|ect t tp|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
